File Coverage

blib/lib/WWW/2ch.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package WWW::2ch;

use strict;
our $VERSION = '0.07';

use UNIVERSAL::require;

use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors( qw( conf worker cache ua setting subject) );

use WWW::2ch::Setting;
use WWW::2ch::Subject;
use WWW::2ch::Dat;
use WWW::2ch::UserAgent;
use WWW::2ch::Cache;

sub new {
    my ($class, %conf) = @_;

    my $self = bless {}, $class;

    $self->{plugin} = $conf{plugin} || 'Base';
    $self->load_plugin;
    $self->conf($self->worker->gen_conf(\%conf));
    $self->ua( WWW::2ch::UserAgent->new($conf{ua}) );
    $self->cache( WWW::2ch::Cache->new($conf{cache}) );

    $self;
}

sub load_plugin {
    my ($self, $conf) = shift;

    my $module;
    if (-f $self->{plugin}) {
	open my $fh, $self->{plugin} or return;
	while (<$fh>) {
	    if (/^package (WWW::2ch::Plugin::.*?);/) {
		eval { require $self->{plugin} } or die $@;
		$module = $1;
		last;
	    }
	}
    } else {
	$module = $self->{plugin};
	$module =~ s/^WWW::2ch::Plugin:://;;
	$module = "WWW::2ch::Plugin::$module";
	$module->require or die $@;
    }
    $self->worker($module->new($self->conf));
}

sub encoding { $_[0]->worker->encoding }

sub load_setting {
    my $self = shift;

    return unless $self->conf->{setting};
    $self->setting( WWW::2ch::Setting->new($self, $self->conf->{setting}) )->load;
}

sub load_subject {
    my $self = shift;

    return unless $self->conf->{subject};
    $self->subject( WWW::2ch::Subject->new($self, $self->conf->{subject}) )->load;
}

sub parse_dat {
    my ($self, $data, $subject) = @_;

    $subject = { $subject } unless ref($subject);
    my $dat = WWW::2ch::Dat->new($self, $subject);
    $dat->dat($data);
    $dat->parse;
    $dat;
}

sub recall_dat {
    my ($self, $key) = @_;

    my $dat = WWW::2ch::Dat->new($self, {});
    $dat->key($key);
    $dat->get_cache;
    $dat->parse;
    $dat;
}

1;
__END__