File Coverage

blib/lib/WWW/GoKGS/Scraper/TournInfo.pm

Criterion	Covered	Total	%
statement	19	32	59.3
branch	0	4	0.0
condition			n/a
subroutine	7	9	77.7
pod	2	2	100.0
total	28	47	59.5

package WWW::GoKGS::Scraper::TournInfo;
use strict;
use warnings;
use parent qw/WWW::GoKGS::Scraper/;
use WWW::GoKGS::Scraper::Declare;
use WWW::GoKGS::Scraper::TournLinks;

sub base_uri { 'http://www.gokgs.com/tournInfo.jsp' }

sub __build_scraper {
    my $self = shift;
    my $links = $self->__build_tourn_links;

    scraper {
        process '//h1', 'name' => [ 'TEXT', sub { s/\s+\([^)]+\)$// } ],
                        'notes' => [ 'TEXT', sub { m/\s+\(([^)]+)\)$/ && $1 } ];
        process '//a[@href="tzList.jsp"]', 'time_zone' => 'TEXT';
        process '//node()[preceding-sibling::h1 and following-sibling::div]',
                'description[]' => sub { $_[0]->as_XML };
        process '//div[@class="tournData"]', 'links' => $links;
    };
}

sub scrape {
    my ( $self, @args ) = @_;
    my $result = $self->SUPER::scrape( @args );

    if ( exists $result->{description} ) {
        $result->{description} = join q{}, @{$result->{description}};
    }

    $result;
}

1;

__END__