| blib/lib/Net/DNS/GuessTZ.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 18 | 5.5 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 0 | unless my($cctld) = $host =~ /\.(\w{2})\z/ |
| 52 | 0 | 0 | unless my $cc = $self->_icf->inet_atocc($host) |
| 76 | 2 | 0 | unless $host |
| 78 | 0 | 0 | unless exists $arg->{'ip_country'} |
| 83 | 0 | 0 | if @names |
| 85 | 0 | 0 | if ($arg->{'ip_country'}) |
| 87 | 0 | 0 | if @names |
| 92 | 0 | 0 | ($arg->{'priority'} || 'ip') eq 'cc' ? : |
| 94 | 0 | 0 | if (my $tz = &List::Util::first(sub { |