| line |
true |
false |
branch |
|
234
|
0 |
0 |
if (($w -= $rr[$_][1]) <= 0) |
|
263
|
0 |
0 |
unless my $ipn = $_[0] |
|
270
|
0 |
0 |
if ($af == 10) |
|
274
|
0 |
0 |
if ($ipn =~ s/^\x00{10}(?:\xff\xff|\x00\x00)//) { } |
|
281
|
0 |
0 |
if ($af == 2) |
|
291
|
0 |
0 |
unless $ip = &_munge_ptr(scalar &AnyEvent::Socket::parse_address($ip)) |
|
302
|
0 |
0 |
unless my $ipn = &AnyEvent::Socket::parse_address($ip) |
|
310
|
0 |
0 |
unless my $ptr = &_munge_ptr($ipn) |
|
322
|
0 |
0 |
if $_->[4] eq $ip |
|
325
|
0 |
0 |
unless --$cnt |
|
326
|
0 |
0 |
$af == 2 ? : |
|
329
|
0 |
0 |
unless $cnt |
|
460
|
0 |
5 |
$_->[1] > 0 ? : |
|
|
0 |
5 |
$_->[3] > 0 ? : |
|
519
|
0 |
5 |
unless $req->{'qd'} |
|
520
|
5 |
0 |
unless $req->{'an'} |
|
521
|
5 |
0 |
unless $req->{'ns'} |
|
522
|
5 |
0 |
unless $req->{'ar'} |
|
524
|
0 |
5 |
unless $req->{'qd'} |
|
525
|
5 |
0 |
unless $req->{'an'} |
|
526
|
5 |
0 |
unless $req->{'ns'} |
|
527
|
5 |
0 |
unless $req->{'ar'} |
|
|
0 |
5 |
$EDNS0 ? : |
|
543
|
0 |
57 |
if ++$cnt >= 256 |
|
547
|
1 |
56 |
if ($len >= 192) { } |
|
|
38 |
18 |
elsif ($len) { } |
|
549
|
1 |
0 |
if $ptr > $ofs |
|
555
|
17 |
1 |
if $ptr > $ofs |
|
822
|
2 |
6 |
unless ($RESOLVER) |
|
830
|
0 |
2 |
$ENV{'PERL_ANYEVENT_RESOLV_CONF'} ? : |
|
912
|
2 |
0 |
if (socket my $fh4, 2, 2, 0) |
|
918
|
5 |
0 |
if (my $peer = recv($fh4, my $pkt, 4096, 0)) |
|
924
|
2 |
0 |
if (socket my $fh6, 10, 2, 0) |
|
930
|
0 |
0 |
if (my $peer = recv($fh6, my $pkt, 4096, 0)) |
|
937
|
0 |
2 |
unless $got_socket |
|
979
|
4 |
8 |
if (/^\s*nameserver\s+(\S+)\s*$/i) { } |
|
|
2 |
6 |
elsif (/^\s*domain\s+(\S*)\s*$/i) { } |
|
|
0 |
6 |
elsif (/^\s*search\s+(.*?)\s*$/i) { } |
|
|
0 |
6 |
elsif (/^\s*sortlist\s+(.*?)\s*$/i) { } |
|
|
0 |
6 |
elsif (/^\s*options\s+(.*?)\s*$/i) { } |
|
981
|
4 |
0 |
if (my $ipn = &AnyEvent::Socket::parse_address($ip)) { } |
|
994
|
0 |
0 |
if (/^timeout:(\d+)$/) { } |
|
|
0 |
0 |
elsif (/^attempts:(\d+)$/) { } |
|
|
0 |
0 |
elsif (/^ndots:(\d+)$/) { } |
|
1009
|
0 |
2 |
if $attempts |
|
1022
|
2 |
0 |
if (my($contents) = @_) { } |
|
1050
|
0 |
2 |
if ($^O =~ /cygwin/i) { } |
|
1065
|
0 |
0 |
unless (eval {
do {
require Net::DNS::Resolver;
my $r = 'Net::DNS::Resolver'->new;
die unless $r->nameservers;
foreach my $s ($r->nameservers) {
if (my $ipn = &AnyEvent::Socket::parse_address($s)) {
push @{$$self{'server'};}, $ipn;
} ;
} ;
$self->{'search'} = [$r->searchlist];
1
}
}) |
|
1071
|
0 |
0 |
unless $r->nameservers |
|
1075
|
0 |
0 |
if (my $ipn = &AnyEvent::Socket::parse_address($s)) |
|
1088
|
0 |
0 |
if (open my $fh, 'ipconfig /all |') |
|
1097
|
0 |
0 |
if (s/^\s.*\bdns\b.*://i) { } |
|
|
0 |
0 |
elsif (/^\S/ or /^\s[^:]{16,}: /) { } |
|
1102
|
0 |
0 |
if ($dns and /^\s*(\S+)\s*$/) |
|
1105
|
0 |
0 |
if (my $ipn = &AnyEvent::Socket::parse_address($s)) { } |
|
1124
|
2 |
0 |
if @_ |
|
1166
|
2 |
7 |
unless (@{$self->{'server'};}) |
|
1169
|
0 |
2 |
$AnyEvent::PROTOCOL{'ipv6'} > $AnyEvent::PROTOCOL{'ipv4'} ? : |
|
1190
|
0 |
5 |
unless $res = &dns_unpack($res) |
|
1195
|
0 |
5 |
unless ref $id |
|
1209
|
0 |
5 |
unless $port == 53 and grep(($_ eq $host), @{$$self{'server'};}) |
|
1217
|
0 |
5 |
if ($timeout) { } |
|
1239
|
0 |
5 |
unless (my $retry_cfg = $self->{'retry'}[$retry++]) |
|
1251
|
0 |
0 |
if $do_retry |
|
1255
|
0 |
5 |
if ($res->{'tc'}) { } |
|
1258
|
0 |
0 |
unless $do_retry |
|
1260
|
0 |
0 |
unless my($fh) = @_ |
|
1270
|
0 |
0 |
unless $do_retry |
|
1296
|
5 |
0 |
2 == AnyEvent::Socket::sockaddr_family($sa) ? : |
|
|
0 |
5 |
unless my $fh = 2 == AnyEvent::Socket::sockaddr_family($sa) ? $self->{'fh4'} : $self->{'fh6'} |
|
1307
|
2 |
17 |
if $self->{'inhibit'} |
|
1319
|
0 |
27 |
if (@{$self->{'reuse_q'};} >= 30000) |
|
1328
|
5 |
22 |
if (my $req = shift @{$$self{'queue'};}) { } |
|
|
5 |
17 |
elsif (my $cb = shift @{$$self{'wait'};}) { } |
|
1332
|
5 |
0 |
unless exists $self->{'id'}{$req->[2]} |
|
1375
|
0 |
5 |
if 255 < length $_->[0] |
|
1498
|
1 |
0 |
$qname =~ tr/.// >= $self->{'ndots'} ? : |
|
|
0 |
1 |
$opt{'search'} ? : |
|
|
4 |
1 |
$qname =~ s/\.$// ? : |
|
1503
|
0 |
5 |
$opt{'accept'} ? : |
|
1511
|
4 |
5 |
unless @search |
|
1522
|
0 |
5 |
unless my($res) = @_ |
|
1531
|
1 |
4 |
if @rr |
|
1537
|
0 |
4 |
if (@rr) { } |
|
|
0 |
4 |
elsif ($cname) { } |
|
1538
|
0 |
0 |
unless $depth-- |