| line |
true |
false |
branch |
|
137
|
3 |
0 |
unless ($args{'server'}) |
|
140
|
0 |
3 |
$ENV{'PERL_ANYEVENT_RESOLV_CONF'} ? : |
|
147
|
3 |
0 |
if (prototype 'AnyEvent::Socket::_load_hosts_unless' || '') eq "&\$\@" |
|
151
|
3 |
0 |
if ($old_helper) |
|
162
|
2 |
0 |
if $old_helper |
|
181
|
0 |
6 |
unless @aliases |
|
183
|
4 |
2 |
if (my $ipv4 = &AnyEvent::Socket::parse_ipv4($addr)) { } |
|
|
2 |
0 |
elsif (my $ipv6 = &AnyEvent::Socket::parse_ipv6($addr)) { } |
|
197
|
0 |
13 |
if (@dns) { } |
|
202
|
13 |
0 |
length $ENV{'PERL_ANYEVENT_HOSTS'} ? : |
|
210
|
13 |
0 |
unless ($#HOSTS_CHECKING) |
|
218
|
2 |
11 |
if ((stat _)[9] ne ($HOSTS_MTIME || 0)) { } |
|
257
|
4 |
9 |
if $req->{'qd'}[0][1] eq "srv" |
|
267
|
13 |
0 |
if (exists $HOSTS{$node}) |
|
268
|
5 |
8 |
if ($type =~ /^([*]|srv)$/) |
|
271
|
13 |
0 |
if (ref $HOSTS{$node} eq "ARRAY") |
|
272
|
5 |
0 |
if ($type =~ /^([*]|a)$/ and exists $HOSTS{$node}[0]) |
|
275
|
5 |
0 |
if ($type =~ /^([*]|aaaa)$/ and exists $HOSTS{$node}[1]) |
|
281
|
8 |
0 |
if (@ipv4 or @ipv6 or @srv) |