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