| line |
true |
false |
branch |
|
102
|
6 |
1 |
unless $warned{join $", @note}++ |
|
129
|
4 |
89 |
if (my $file = $args{'config_file'}) { } |
|
|
81 |
8 |
elsif ($init) { } |
|
133
|
1 |
1 |
unless $init |
|
144
|
2 |
75 |
unless $public_attr{$attr} |
|
146
|
4 |
71 |
if $ref and $ref ne "ARRAY" |
|
148
|
26 |
45 |
$ref ? : |
|
169
|
3 |
4 |
unless scalar @value |
|
177
|
1 |
7 |
if defined $ENV{'LOCALDOMAIN'} |
|
179
|
1 |
7 |
if defined $ENV{'RES_NAMESERVERS'} |
|
181
|
1 |
7 |
if defined $ENV{'RES_SEARCHLIST'} |
|
193
|
2 |
17 |
unless my $filehandle = "IO::File"->new($file, "<") |
|
202
|
10 |
48 |
if (/^nameserver/) |
|
208
|
2 |
46 |
if (/^domain/) |
|
214
|
10 |
36 |
if (/^search/) |
|
220
|
2 |
34 |
if (/^option/) |
|
230
|
10 |
7 |
if @nameserver |
|
231
|
10 |
7 |
if @searchlist |
|
238
|
1 |
1 |
unless ref $self |
|
266
|
145 |
36 |
unless ref $self |
|
269
|
26 |
155 |
if scalar @domain |
|
280
|
2 |
316 |
unless ref $self |
|
284
|
1456 |
14 |
if (_ipv4($ns) or _ipv6($ns)) { } |
|
303
|
1 |
13 |
unless scalar @address |
|
309
|
139 |
179 |
if (scalar @ns or not defined wantarray) |
|
317
|
3 |
315 |
$self->{'force_v6'} ? : |
|
318
|
4 |
314 |
$self->{'force_v4'} ? : |
|
321
|
127 |
191 |
if $self->{'prefer_v4'} or not scalar @ns6 |
|
322
|
26 |
292 |
if $self->{'prefer_v6'} or not scalar @ns4 |
|
324
|
300 |
18 |
if scalar @nameservers |
|
327
|
1 |
17 |
if scalar @ns4 < scalar @{$self->{'nameserver4'};} |
|
328
|
1 |
17 |
if scalar @ns6 < scalar @{$self->{'nameserver6'};} |
|
376
|
2 |
11 |
$self->{'defnames'} && !($name =~ /[.:]/) ? : |
|
381
|
7 |
3 |
$packet->header->ancount ? : |
|
388
|
1 |
6 |
unless $self->{'dnsrch'} |
|
393
|
1 |
5 |
$dots < $self->{'ndots'} ? : |
|
394
|
1 |
1 |
$dots ? : |
|
|
4 |
2 |
$name =~ /:|\.\d*$/ ? : |
|
397
|
2 |
5 |
$suffix ? : |
|
400
|
1 |
1 |
if $packet->header->ancount |
|
415
|
7 |
120 |
if $self->{'usevc'} or length $packet_data > $self->_packetsz |
|
419
|
4 |
96 |
if $self->{'igntc'} |
|
420
|
95 |
1 |
unless $reply->header->tc |
|
451
|
2 |
8 |
unless $self->_accept_reply($reply, $query) |
|
454
|
2 |
6 |
if ($self->{'tsig_rr'} and not $reply->verify($query)) |
|
460
|
3 |
3 |
if $rcode eq "NOERROR" |
|
461
|
1 |
2 |
if $rcode eq "NXDOMAIN" |
|
465
|
1 |
4 |
if $fallback |
|
466
|
2 |
3 |
unless $self->{'errorstring'} |
|
479
|
117 |
4 |
$servers ? : |
|
491
|
203 |
12 |
unless (ref $ns) |
|
498
|
12 |
105 |
if $failed |
|
519
|
2 |
103 |
unless $self->_accept_reply($packet, $query) |
|
525
|
2 |
103 |
unless $reply |
|
527
|
2 |
101 |
if ($self->{'tsig_rr'} and not $reply->verify($query)) |
|
533
|
96 |
5 |
if $rcode eq "NOERROR" |
|
534
|
3 |
2 |
if $rcode eq "NXDOMAIN" |
|
543
|
1 |
21 |
if $fallback |
|
544
|
15 |
7 |
unless $self->{'errorstring'} |
|
557
|
7 |
9 |
if $self->{'usevc'} or length $packet_data > $self->_packetsz |
|
573
|
2 |
10 |
unless $socket |
|
618
|
2 |
11870 |
unless $handle |
|
622
|
1 |
11869 |
if ref $read |
|
624
|
11854 |
15 |
unless "IO::Select"->new($handle)->can_read(0) |
|
626
|
1 |
14 |
unless $query |
|
627
|
3 |
11 |
if $self->{'igntc'} |
|
628
|
6 |
5 |
unless $handle->socktype == 2 |
|
632
|
1 |
4 |
unless $ans |
|
633
|
2 |
2 |
unless $ans->header->tc |
|
658
|
1 |
16 |
unless $handle |
|
662
|
4 |
12 |
if ref $read |
|
665
|
1 |
11 |
unless ($select->can_read(0)) |
|
673
|
6 |
5 |
$dgram ? : |
|
678
|
1 |
10 |
unless $self->_accept_reply($reply, $query) |
|
681
|
9 |
1 |
unless $self->{'tsig_rr'} and not $reply->verify($query) |
|
690
|
1 |
130 |
unless $reply |
|
693
|
1 |
129 |
unless $header->qr |
|
695
|
6 |
123 |
if $query and $header->id != $query->header->id |
|
703
|
7 |
2 |
scalar @argument ? : |
|
715
|
6 |
2685 |
if (ref $rr eq "Net::DNS::RR::SOA") |
|
716
|
3 |
3 |
if ($soa) |
|
718
|
2 |
1 |
if $rr->canonical eq $soa->canonical |
|
724
|
31 |
2657 |
unless (scalar @rr) |
|
727
|
30 |
1 |
if $reply |
|
733
|
1 |
2 |
unless wantarray |
|
779
|
3 |
6 |
if ($rcode = $reply->header->rcode) eq "NOERROR" |
|
782
|
2 |
6 |
unless $reply |
|
786
|
3 |
3 |
$request->sigrr ? : |
|
787
|
3 |
3 |
unless ($verify) |
|
788
|
1 |
2 |
unless $rcode eq "NOERROR" |
|
793
|
1 |
2 |
unless $verifyok |
|
794
|
1 |
1 |
if $rcode ne "NOERROR" |
|
805
|
1 |
41 |
unless $socket |
|
809
|
1 |
40 |
if $@ |
|
811
|
29 |
11 |
unless $verify |
|
814
|
1 |
10 |
unless $verifyok |
|
834
|
56 |
5 |
unless length($buffer .= $fragment || (last)) < $size |
|
856
|
2 |
29 |
if ($socket = $self->{'persistent'}{$sock_key}) |
|
858
|
1 |
1 |
if $socket->connected |
|
871
|
1 |
29 |
$ip6_addr ? : |
|
885
|
2 |
28 |
if $self->{'persistent_tcp'} |
|
895
|
1 |
181 |
if $socket = $self->{'persistent'}{$sock_key} |
|
901
|
67 |
114 |
$ip6_addr ? : |
|
916
|
1 |
180 |
if $self->{'persistent_udp'} |
|
946
|
79 |
135 |
_ipv6($ip) ? : |
|
956
|
1424 |
1527 |
if /[^.0-9]/ |
|
964
|
1063 |
1558 |
unless /:.*:/ |
|
965
|
1554 |
4 |
unless /[^:0-9A-Fa-f]/ |
|
966
|
2 |
2 |
if /^[:.0-9A-Fa-f]+\%.+$/ |
|
977
|
82 |
101 |
if (ref $packet) { } |
|
979
|
4 |
78 |
unless defined $edns->{'udpsize'} |
|
987
|
5 |
95 |
if $self->{'dnssec'} |
|
991
|
12 |
170 |
if ($self->{'tsig_rr'}) |
|
992
|
11 |
1 |
unless $packet->sigrr |
|
1011
|
3 |
2 |
if $self->{'force_v6'} = $_ |
|
1012
|
4 |
4 |
$self->{'force_v6'} ? : |
|
1017
|
4 |
2 |
if $self->{'force_v4'} = $_ |
|
1018
|
5 |
4 |
$self->{'force_v4'} ? : |
|
1023
|
4 |
1 |
if $self->{'prefer_v6'} = $_ |
|
1024
|
5 |
3 |
$self->{'prefer_v6'} ? : |
|
1029
|
2 |
1 |
if $self->{'prefer_v4'} = $_ |
|
1030
|
3 |
3 |
$self->{'prefer_v4'} ? : |
|
1036
|
1 |
1 |
_ipv6($_) ? : |
|
1046
|
1 |
8 |
unless $arg |
|
1047
|
1 |
7 |
if ref $arg eq "Net::DNS::RR::TSIG" |
|
1052
|
1 |
8 |
if $@ |
|
1062
|
174 |
81 |
$udpsize > 512 ? : |
|
1082
|
590 |
1 |
unless +(shift())->{'debug'} |
|
1107
|
4 |
2 |
unless scalar @ip |
|
1123
|
1 |
41 |
unless $public_attr{$name} |
|
1127
|
2 |
101 |
unless ref $self |
|
1128
|
79 |
24 |
if scalar @_ |