| line |
true |
false |
branch |
|
20
|
187 |
0 |
if (@_) |
|
51
|
1 |
302 |
unless ($RESOLVER) |
|
52
|
0 |
1 |
unless $RESOLVER = "Net::DNS::Resolver"->new |
|
81
|
0 |
303 |
unless (eval {
do {
local $SIG{'__DIE__'};
$resp = $rslv->send($domain, $type);
1
}
}) |
|
85
|
0 |
303 |
if ($E2) |
|
87
|
0 |
303 |
unless (eval {
do {
local $SIG{'__DIE__'};
local $SIG{'ALRM'} = sub {
die "DNS query timeout for $domain\n";
}
;
alarm $TIMEOUT;
my $E2;
unless (eval {
do {
local $SIG{'__DIE__'};
$resp = $rslv->send($domain, $type);
1
}
}) {
$E2 = $@;
} ;
alarm 0;
if ($E2) {
chomp $E2;
die "$E2\n";
} ;
1
}
}) |
|
93
|
0 |
303 |
if ($remaining_time > 0) |
|
98
|
0 |
0 |
$dt < 1 ? : |
|
100
|
0 |
303 |
if ($E) |
|
110
|
303 |
0 |
if ($resp) |
|
112
|
303 |
0 |
if ($header) |
|
118
|
301 |
2 |
if ($rcode eq 'NOERROR') { } |
|
|
2 |
0 |
elsif ($rcode eq 'NXDOMAIN') { } |
|
122
|
3 |
298 |
unless @result |
|
130
|
0 |
0 |
if ($rslv->errorstring eq "NOERROR") |
|
133
|
0 |
0 |
if ($rslv->errorstring =~ /\bno error\b/) |
|
164
|
3 |
369 |
unless (eval {
do {
local $SIG{'__DIE__'};
@resp = query($domain, $type);
$rcode = $@;
1
}
}) |