File Coverage

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

Criterion	Covered	Total	%
statement	21	34	61.7
branch	0	6	0.0
condition	0	12	0.0
subroutine	6	11	54.5
pod			n/a
total	27	63	42.8

package WWW::GoKGS::Scraper::TournLinks;
use strict;
use warnings;
use Exporter qw/import/;
use WWW::GoKGS::Scraper::Declare;
use WWW::GoKGS::Scraper::Filters qw/datetime/;

our @EXPORT = qw( __build_tourn_links );

sub __build_tourn_links {
    my $self = shift;

    my @start_time = (
        sub {
            my $time = m/ will start at (.*)$/ && $1;
            $time ||= m/\(([^\-]+) -/ && $1;
            $time =~ tr/\x{a0}/ / if $time;
            $time;
        },
        \&datetime,
    );

    my @end_time = (
        sub {
            my $time = m/- ([^)]+)\)$/ && $1;
            $time =~ tr/\x{a0}/ / if $time;
            $time;
        },
        \&datetime,
    );

    my %entrants = (
        sort_by => [ 'TEXT', sub { s/^By // } ],
        uri => '@href',
    );

    my $round = scraper {
        process '.', 'round' => [ 'TEXT', sub { m/^Round (\d+) / && $1 } ],
                     'start_time' => [ 'TEXT', @start_time ];
        process 'a', 'end_time' => [ 'TEXT', @end_time ],
                     'uri' => '@href';
    };

    scraper {
        process '//ul[1]//li/a', 'entrants[]' => \%entrants;
        process '//ul[2]//li', 'rounds[]' => $round;
    };
}

1;