blib/lib/Net/DNS/GuessTZ.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 1 | 18 | 5.5 |
line | true | false | branch |
---|---|---|---|
29 | 0 | 0 | unless my($cctld) = $host =~ /\.(\w{2})\z/ |
35 | 0 | 0 | unless my $cc = $self->_icf->inet_atocc($host) |
42 | 2 | 0 | unless $host |
44 | 0 | 0 | unless exists $$arg{'ip_country'} |
49 | 0 | 0 | if @names |
51 | 0 | 0 | if ($$arg{'ip_country'}) |
53 | 0 | 0 | if @names |
56 | 0 | 0 | ($$arg{'priority'} || 'ip') eq 'cc' ? : |
60 | 0 | 0 | if (my $tz = &List::Util::first(sub { defined $_; } , @cand)) { } |