File Coverage

blib/lib/Geography/Country/TZ.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	0	3	0.0
total	9	43	20.9

package Geography::Country::TZ;
use Geography::Country::TZ::Zone;

require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(areas areas_dmy from_iso);

BEGIN {
        eval { require Net::Country;
               %country = %Net::Country::country;
               @country{keys %country} = map {s/\s*\(.*\)\s*$//; lc($_);} values %country;
               %cross = reverse %country;
        };
}

while () {
        chop;
        ($cn, $geo, $tz) = split(/\s+/);
        $hash{$cn} ||= [];
        push(@{$hash{$cn}}, $tz);
}

sub from_iso {
        $cross{lc($_[0])};
}

sub areas {
        my $cn = uc(shift);
        my $areas = $hash{$cn} || $hash{from_iso($cn)};
        return undef unless ($areas);
        my @areas = @$areas;
        sort {$a <=> $b} map {Geography::Country::TZ::Zone::getoffset($_);}
                @areas;
}

sub areas_dmy {
        my $cn = uc(shift);
        my $areas = $hash{$cn} || $hash{$cross{$cn}};
        return undef unless ($areas);
        my @areas = @$areas;
        sort {$a <=> $b} map {Geography::Country::TZ::Zone::getpastoffset($_, @_);}
                @areas;
}

1;

__DATA__