| line |
true |
false |
branch |
|
114
|
6 |
1 |
unless $warned{join $", @note}++ |
|
141
|
4 |
90 |
if (my $file = $args{'config_file'}) { } |
|
|
82 |
8 |
elsif ($init) { } |
|
145
|
1 |
1 |
unless $init |
|
156
|
2 |
75 |
unless $public_attr{$attr} |
|
158
|
4 |
71 |
if $ref and $ref ne "ARRAY" |
|
160
|
24 |
47 |
$ref ? : |
|
181
|
3 |
4 |
unless scalar @value |
|
189
|
1 |
7 |
if defined $ENV{'LOCALDOMAIN'} |
|
191
|
1 |
7 |
if defined $ENV{'RES_NAMESERVERS'} |
|
193
|
1 |
7 |
if defined $ENV{'RES_SEARCHLIST'} |
|
205
|
2 |
17 |
unless my $filehandle = "IO::File"->new($file, "<") |
|
214
|
18 |
72 |
if (/^nameserver/) |
|
220
|
2 |
70 |
if (/^domain/) |
|
226
|
10 |
60 |
if (/^search/) |
|
232
|
2 |
58 |
if (/^option/) |
|
242
|
10 |
7 |
if @nameserver |
|
243
|
10 |
7 |
if @searchlist |
|
250
|
1 |
1 |
unless ref $self |
|
278
|
55 |
44 |
unless ref $self |
|
281
|
26 |
73 |
if scalar @domain |
|
292
|
2 |
232 |
unless ref $self |
|
296
|
289 |
8 |
if (_ipv4($ns) or _ipv6($ns)) { } |
|
315
|
1 |
7 |
unless scalar @address |
|
321
|
97 |
137 |
if (scalar @ns or not defined wantarray) |
|
332
|
125 |
109 |
@IPv6 ? : |
|
333
|
5 |
229 |
if $self->{'prefer_v6'} |
|
334
|
1 |
233 |
if $self->{'prefer_v4'} |
|
335
|
3 |
231 |
if $self->{'force_v6'} |
|
336
|
5 |
229 |
if $self->{'force_v4'} |
|
338
|
9 |
225 |
unless @IPlist |
|
375
|
150 |
265 |
if $text |
|
384
|
2 |
11 |
$self->{'defnames'} && !($name =~ /[.:]/) ? : |
|
389
|
7 |
3 |
$packet->header->ancount ? : |
|
396
|
1 |
6 |
unless $self->{'dnsrch'} |
|
401
|
1 |
5 |
$dots < $self->{'ndots'} ? : |
|
402
|
1 |
1 |
$dots ? : |
|
|
4 |
2 |
$name =~ /:|\.\d*$/ ? : |
|
405
|
2 |
5 |
$suffix ? : |
|
408
|
1 |
1 |
if $packet->header->ancount |
|
423
|
7 |
84 |
if $self->{'usevc'} or length $packet_data > $self->_packetsz |
|
427
|
4 |
63 |
if $self->{'igntc'} |
|
428
|
62 |
1 |
unless $reply->header->tc |
|
454
|
0 |
10 |
unless @ready |
|
463
|
2 |
8 |
unless $self->_accept_reply($reply, $query) |
|
466
|
2 |
6 |
if ($self->{'tsig_rr'} and not $reply->verify($query)) |
|
472
|
3 |
3 |
if $rcode eq "NOERROR" |
|
473
|
1 |
2 |
if $rcode eq "NXDOMAIN" |
|
477
|
1 |
4 |
if $fallback |
|
478
|
2 |
3 |
unless $self->errorstring |
|
491
|
84 |
1 |
$servers ? : |
|
503
|
129 |
51 |
unless (ref $ns) |
|
510
|
51 |
90 |
if $failed |
|
532
|
2 |
70 |
unless $self->_accept_reply($packet, $query) |
|
539
|
20 |
70 |
unless $reply |
|
541
|
2 |
68 |
if ($self->{'tsig_rr'} and not $reply->verify($query)) |
|
547
|
63 |
5 |
if $rcode eq "NOERROR" |
|
548
|
3 |
2 |
if $rcode eq "NXDOMAIN" |
|
557
|
1 |
18 |
if $fallback |
|
558
|
14 |
5 |
unless $self->errorstring |
|
571
|
7 |
9 |
if $self->{'usevc'} or length $packet_data > $self->_packetsz |
|
587
|
2 |
8 |
unless $socket |
|
632
|
2 |
11499 |
unless $handle |
|
636
|
1 |
11498 |
if ref $read |
|
638
|
11485 |
13 |
unless "IO::Select"->new($handle)->can_read("0.02") |
|
640
|
1 |
12 |
unless $query |
|
641
|
6 |
6 |
unless $handle->socktype == 2 |
|
646
|
1 |
5 |
unless $ans |
|
647
|
1 |
4 |
if $self->{'igntc'} |
|
648
|
4 |
0 |
unless $ans->header->tc |
|
670
|
1 |
17 |
unless $handle |
|
674
|
6 |
11 |
if ref $read |
|
676
|
1 |
10 |
unless "IO::Select"->new($handle)->can_read("0.2") |
|
679
|
6 |
4 |
$dgram ? : |
|
687
|
1 |
9 |
unless $self->_accept_reply($reply, $query) |
|
690
|
8 |
1 |
unless $self->{'tsig_rr'} and not $reply->verify($query) |
|
699
|
1 |
96 |
unless $reply |
|
702
|
1 |
95 |
unless $header->qr |
|
704
|
6 |
89 |
if $query and $header->id != $query->header->id |
|
712
|
7 |
2 |
scalar @argument ? : |
|
724
|
6 |
2682 |
if (ref $rr eq "Net::DNS::RR::SOA") |
|
725
|
3 |
3 |
if ($soa) |
|
727
|
2 |
1 |
if $rr->canonical eq $soa->canonical |
|
733
|
28 |
2657 |
unless (scalar @rr) |
|
736
|
27 |
1 |
if $reply |
|
742
|
1 |
2 |
unless wantarray |
|
788
|
3 |
6 |
if ($rcode = $reply->header->rcode) eq "NOERROR" |
|
791
|
2 |
6 |
unless $reply |
|
795
|
3 |
3 |
$request->sigrr ? : |
|
796
|
3 |
3 |
unless ($verify) |
|
797
|
1 |
2 |
unless $rcode eq "NOERROR" |
|
802
|
1 |
2 |
unless $verifyok |
|
803
|
1 |
1 |
if $rcode ne "NOERROR" |
|
814
|
1 |
38 |
unless $socket |
|
818
|
1 |
37 |
if $@ |
|
820
|
27 |
10 |
unless $verify |
|
823
|
1 |
9 |
unless $verifyok |
|
834
|
192 |
104 |
if $size |
|
844
|
0 |
52 |
if length $header < 2 |
|
867
|
2 |
27 |
if ($socket = $self->{'persistent'}{$sock_key}) |
|
869
|
1 |
1 |
if $socket->connected |
|
881
|
1 |
27 |
$ip6_addr ? : |
|
898
|
2 |
26 |
if $self->{'persistent_tcp'} |
|
908
|
1 |
100 |
if $socket = $self->{'persistent'}{$sock_key} |
|
914
|
19 |
81 |
$ip6_addr ? : |
|
931
|
1 |
99 |
if $self->{'persistent_udp'} |
|
956
|
31 |
109 |
_ipv6($ip) ? : |
|
965
|
242 |
357 |
if /[^.0-9]/ |
|
973
|
408 |
286 |
unless /:.*:/ |
|
974
|
282 |
4 |
unless /[^:0-9A-Fa-f]/ |
|
975
|
2 |
2 |
if /^[:.0-9A-Fa-f]+\%.+$/ |
|
986
|
88 |
47 |
unless (ref $packet) |
|
993
|
5 |
82 |
if $self->{'dnssec'} |
|
997
|
12 |
122 |
if ($self->{'tsig_rr'}) |
|
998
|
11 |
1 |
unless $packet->sigrr |
|
1017
|
3 |
1 |
if $self->{'force_v6'} = $_ |
|
1018
|
4 |
3 |
$self->{'force_v6'} ? : |
|
1023
|
4 |
1 |
if $self->{'force_v4'} = $_ |
|
1024
|
5 |
3 |
$self->{'force_v4'} ? : |
|
1029
|
4 |
1 |
if $self->{'prefer_v6'} = $_ |
|
1030
|
5 |
3 |
$self->{'prefer_v6'} ? : |
|
1035
|
2 |
1 |
if $self->{'prefer_v4'} = $_ |
|
1036
|
3 |
3 |
$self->{'prefer_v4'} ? : |
|
1042
|
1 |
1 |
_ipv6($_) ? : |
|
1051
|
1 |
8 |
unless $arg |
|
1052
|
1 |
7 |
if ref $arg eq "Net::DNS::RR::TSIG" |
|
1058
|
1 |
6 |
if $@ |
|
1068
|
59 |
49 |
$udpsize > 512 ? : |
|
1088
|
478 |
1 |
unless +(shift())->{'debug'} |
|
1113
|
4 |
2 |
unless scalar @ip |
|
1129
|
1 |
43 |
unless $public_attr{$name} |
|
1133
|
2 |
99 |
unless ref $self |
|
1134
|
77 |
24 |
if scalar @_ |