| line |
true |
false |
branch |
|
51
|
0 |
0 |
unless $args{'Suffix'} ||= $ENV{'DNS_SUFFIX'} |
|
67
|
0 |
0 |
if ($rr->type eq 'NS' and $$soa{lc $rr->name}) |
|
72
|
0 |
0 |
if ($rr->type eq 'CNAME' and $$soa{lc $rr->name}) |
|
77
|
0 |
0 |
if ($rr->type eq 'A' and $$soa{lc $rr->name}) |
|
79
|
0 |
0 |
unless ($$bind_errors{$try}) |
|
80
|
0 |
0 |
if $args{'Verbose'} |
|
82
|
0 |
0 |
if ('IO::Socket::INET'->new('LocalAddr', $try, 'Listen', 1)) { } |
|
84
|
0 |
0 |
if $args{'Verbose'} |
|
89
|
0 |
0 |
if $args{'Verbose'} |
|
101
|
0 |
0 |
if $ip |
|
103
|
0 |
0 |
if $ip |
|
106
|
0 |
0 |
unless ($ip) |
|
108
|
0 |
0 |
if ($ip) { } |
|
124
|
0 |
0 |
if $args{'Verbose'} |
|
130
|
0 |
0 |
unless my $suffix = $$self{'Suffix'} |
|
135
|
0 |
0 |
if $$self{'Verbose'} |
|
136
|
0 |
0 |
if ($qname =~ /(^|\.)$suffix/) { } |
|
138
|
0 |
0 |
if ($qtype eq 'TXT') { } |
|
|
0 |
0 |
elsif ($qtype eq 'NS') { } |
|
|
0 |
0 |
elsif ($qtype =~ /^(A|CNAME)$/) { } |
|
140
|
0 |
0 |
if ($qname =~ /^([a-z]*)\.?$suffix/ and my $static = $$TXT{$1}) { } |
|
|
0 |
0 |
elsif ($qname =~ /^([a-z\-]+)(\d+)\.$suffix$/ and my $method = $$TXT{$1 . '0'}) { } |
|
|
0 |
0 |
elsif ($qname =~ /^([a-z0-9\-\.]+)\.t(\d+)\.(\w+)\.(0|z[0-9a-f]{26})\.$suffix$/i) { } |
|
|
0 |
0 |
elsif ($qname =~ /^([0-9a-w]{6})\.(\d+)\.([0-9a-w.]+)\.$suffix$/ && $2 == length $3 || $qname =~ /^([0-9a-w]{6})\.()([xz])\.$suffix$/ and my $proxy = $$self{'_proxy'}{$1}) { } |
|
161
|
0 |
0 |
$line_num ? : |
|
|
0 |
0 |
if $line_num <= @$codes_array_ref |
|
169
|
0 |
0 |
if ($code ne $self->encrypt($peerhost, $peerport)) { } |
|
|
0 |
0 |
elsif (my $prev = $$self{'_proxy'}{$ephid}) { } |
|
170
|
0 |
0 |
unless $IO::Socket::DNS::INVALID_PASS |
|
175
|
0 |
0 |
if (my $sent = $$prev{'sent'}) |
|
183
|
0 |
0 |
if $$self{'Verbose'} |
|
189
|
0 |
0 |
$sock ? : |
|
191
|
0 |
0 |
if (not $sock) { } |
|
192
|
0 |
0 |
if $$self{'Verbose'} |
|
197
|
0 |
0 |
if $$self{'Verbose'} |
|
226
|
0 |
0 |
if ('IO::Select'->new($sock)->can_read(0.3)) |
|
229
|
0 |
0 |
if (sysread $sock, $banner, $MAX_RETURN) |
|
249
|
0 |
0 |
if ($encoded =~ /^[xz]$/) |
|
250
|
0 |
0 |
if ($encoded eq 'x' and my $tcp = $$self{'_tcp'}{$sock}) |
|
261
|
0 |
0 |
if ($next_seqid) { } |
|
262
|
0 |
0 |
if $$self{'Verbose'} |
|
265
|
0 |
0 |
if (not defined $sent) { } |
|
|
0 |
0 |
elsif (my $len = length $sent) { } |
|
274
|
0 |
0 |
if $$self{'Verbose'} |
|
277
|
0 |
0 |
if $$self{'Verbose'} |
|
278
|
0 |
0 |
if (length $encoded) |
|
280
|
0 |
0 |
if $$self{'_tcp'}{$sock} |
|
283
|
0 |
0 |
if $$self{'Verbose'} |
|
292
|
0 |
0 |
if (not $len || $$self{'_tcp'}{$sock}) { } |
|
299
|
0 |
0 |
if ($len) |
|
300
|
0 |
0 |
$len >= $MAX_RETURN ? : |
|
303
|
0 |
0 |
if (defined(my $consumed = $send)) |
|
306
|
0 |
0 |
if $$self{'Verbose'} |
|
317
|
0 |
0 |
if $len |
|
327
|
0 |
0 |
if $$self{'_tcp'}{$sock} |
|
331
|
0 |
0 |
if ($ans) |
|
332
|
0 |
0 |
if $$self{'Verbose'} |
|
347
|
0 |
0 |
if ($qname =~ /^(dns\.|)\Q$suffix\E$/) { } |
|
|
0 |
0 |
elsif ($qname eq $suffix) { } |
|
391
|
0 |
0 |
unless my $me = shift() |
|
392
|
0 |
0 |
unless my $full_path = $$self{'_netdns_map'}{$me} |
|
393
|
0 |
0 |
if $$self{'Verbose'} |
|
394
|
0 |
0 |
unless open my $fh, '<', $full_path |
|
397
|
0 |
0 |
if /^__END__/ |
|
407
|
0 |
0 |
if ($mod =~ m[^Net/DNS]) |
|
415
|
0 |
0 |
if $$self{'Verbose'} |
|
790
|
0 |
0 |
if $$self{'Verbose'} |
|
791
|
0 |
0 |
unless open my $fh, $INC{'IO/Socket/DNS.pm'} |
|
802
|
0 |
0 |
if (open my $fh, "<$try") |
|
808
|
0 |
0 |
unless ($code) |
|
829
|
0 |
0 |
if (open my $fh, "<$try") |
|
835
|
0 |
0 |
unless ($code) |
|
852
|
0 |
0 |
if (open my $fh, "<$try") |
|
858
|
0 |
0 |
unless ($code) |
|
881
|
0 |
0 |
if $$self{'_proxy'}{$s}{'timeout'} > $now |
|
891
|
0 |
0 |
unless ($sock) |
|
896
|
0 |
0 |
unless ($$self{'_tcp'}{$sock} and $$self{'_tcp'}{$sock}{'seqid'}) |
|
904
|
0 |
0 |
unless defined $buffer |
|
905
|
0 |
0 |
if (length $buffer) |