File Coverage

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

Criterion	Covered	Total	%
statement	17	37	45.9
branch	0	6	0.0
condition	0	5	0.0
subroutine	6	9	66.6
pod	2	2	100.0
total	25	59	42.3

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

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

sub __build_scraper {
    my $self = shift;

    my %year_index = (
        year => 'TEXT',
        uri  => '@href',
    );

    my $tournament = scraper {
        process '.', 'name' => [ 'TEXT', sub { s/\s+\([^)]+\)$// } ],
                     'notes' => [ 'TEXT', sub { m/\s+\(([^)]+)\)$/ && $1 } ];
        process 'a', 'uri' => '@href';
    };

    scraper {
        process '//p[a[starts-with(@href,"tournInfo.jsp")]]',
                'tournaments[]' => $tournament;
        process '//a[starts-with(@href, "tournList.jsp")]',
                'year_index[]' => \%year_index;
        process '//p[preceding-sibling::h2/text()="Year Index"]',
                '_years' => 'TEXT';
    };
}

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

    my @years = do {
       my $_years = delete $result->{_years} || q{};
       $_years =~ s/ $//;
       split / /, $_years;
    };

    return $result unless @years;

    for my $i ( 0 .. @years-1 ) {
        next if $year_index->[$i] and $year_index->[$i]->{year} == $years[$i];
        splice @$year_index, $i, 0, { year => int $years[$i] };
        last;
    }

    $result;
}

1;

__END__