Branch Coverage

blib/lib/AnyEvent/DNS/EtcHosts.pm
Criterion Covered Total %
branch 25 38 65.7


line true false branch
129 3 0 unless ($args{'server'})
130 0 3 $ENV{'PERL_ANYEVENT_RESOLV_CONF'} ? :
139 3 0 if (prototype 'AnyEvent::Socket::_load_hosts_unless' || '') eq '&$@'
143 3 0 if ($old_helper)
154 2 0 if $old_helper
174 0 6 unless @aliases
176 4 2 if (my $ipv4 = &AnyEvent::Socket::parse_ipv4($addr)) { }
2 0 elsif (my $ipv6 = &AnyEvent::Socket::parse_ipv6($addr)) { }
192 0 13 if (@dns) { }
195 13 0 length $ENV{'PERL_ANYEVENT_HOSTS'} ? :
204 13 0 unless ($#HOSTS_CHECKING)
209 2 11 if ((stat _)[9] ne ($HOSTS_MTIME || 0)) { }
240 4 9 if $$req{'qd'}[0][1] eq 'srv'
250 13 0 if (exists $HOSTS{$node})
251 5 8 if ($type =~ /^([*]|srv)$/)
254 13 0 if (ref $HOSTS{$node} eq 'ARRAY')
255 5 8 if ($type =~ /^([*]|a)$/ and exists $HOSTS{$node}[0])
258 5 8 if ($type =~ /^([*]|aaaa)$/ and exists $HOSTS{$node}[1])
264 8 0 if (@ipv4 or @ipv6 or @srv)