File Coverage

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

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	23	38	60.5

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

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

sub __build_scraper {
    my $self = shift;

    scraper {
        process '//option', 'time_zones[]' => {
                    # tzdata-compatible name of time zone (maybe or maybe not)
                    name => sub { $_[0]->attr('value') },
                    # java.util.TimeZone's getDisplayName (long version, maybe)
                    # obviously useless, but harmless :)
                    display_name => [ 'TEXT', sub { s/ \([^\)]+\)$// } ],
                    selected => sub { $_[0]->attr('selected') } };
    };
}

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

    for my $time_zone ( @{$result->{time_zones}} ) {
        next unless delete $time_zone->{selected};
        $result->{current_time_zone} = { %$time_zone };
    }

    $result;
}

1;

__END__