Branch Coverage

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)) { }