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