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