File Coverage

blib/lib/WWW/GoKGS/Scraper.pm

Criterion	Covered	Total	%
statement	31	38	81.5
branch	3	6	50.0
condition	2	3	66.6
subroutine	10	14	71.4
pod	6	7	85.7
total	52	68	76.4

package WWW::GoKGS::Scraper;
use strict;
use warnings;
use Carp qw/croak/;
use URI;

sub base_uri {
    croak 'call to abstract method ', __PACKAGE__, '::base_uri';
}

sub build_uri {
    my ( $class, @query ) = @_;
    my $uri = URI->new( $class->base_uri );
    $uri->query_form( @query ) if @query;
    $uri;
}

sub new {
    my $class = shift;
    my %args = @_ == 1 ? %{$_[0]} : @_;
    my $self = bless {}, $class;

    $self->init( \%args );

    $self;
}

sub init {
    my ( $self, $args ) = @_;

    for my $method (qw/user_agent _tree_builder_class/) {
        $self->$method( $args->{$method} ) if exists $args->{$method};
    }

    return;
}

sub _scraper {
    my $self = shift;
    $self->{_scraper} ||= $self->__build_scraper;
}

sub __build_scraper {
    croak 'call to abstract method ', __PACKAGE__, '::__build_scraper';
}

sub _tree_builder_class {
    my ( $self, @args ) = @_;
    $self->_scraper->_tree_builder_class( @args );
}

sub user_agent {
    my ( $self, @args ) = @_;
    $self->_scraper->user_agent( @args );
}

sub scrape {
    my ( $self, @args ) = @_;
    $self->_scraper->scrape( @args );
}

sub query {
    my ( $self, @query ) = @_;
    $self->scrape( ref($self)->build_uri(@query) );
}

1;

__END__