| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless my $obj = eval {
do {
tie *$fh, $class, @_
}
} |
|
33
|
0 |
0 |
if (my $how = eval {
do {
tied *$self
}
}) |
|
54
|
0 |
0 |
eval {
do {
require Net::DNS::Resolver
}
} ? : |
|
57
|
0 |
0 |
if ($nameservers) |
|
58
|
0 |
0 |
unless ref $nameservers |
|
70
|
0 |
0 |
if (`nslookup -type=TXT $name $server 2>&1` =~ /"(.+)"/) |
|
84
|
0 |
0 |
'HASH' eq ref $$self{'Resolver'} ? : |
|
|
0 |
0 |
'ARRAY' eq ref $$self{'Resolver'} ? : |
|
|
0 |
0 |
!ref($$self{'Resolver'}) ? : |
|
|
0 |
0 |
!$$self{'Resolver'} ? : |
|
147
|
0 |
0 |
unless my $pass = $$self{'Password'} |
|
165
|
0 |
0 |
if (@_) { } |
|
171
|
0 |
0 |
if (my $ready = length $$self{'Buffer_R'}) |
|
174
|
0 |
0 |
defined $timeout ? : |
|
175
|
0 |
0 |
unless my $seqid = $$self{'seqid'} |
|
179
|
0 |
0 |
if (length $$self{'Buffer_W'}) { } |
|
188
|
0 |
0 |
if (my $txt = eval {
do {
$self->TXT_resolver->($name)
}
}) |
|
189
|
0 |
0 |
if $$self{'Verbose'} |
|
190
|
0 |
0 |
if ($txt =~ /^$seqid\b/) |
|
192
|
0 |
0 |
if ($txt eq "$seqid.0") |
|
197
|
0 |
0 |
if ($txt =~ s/^$seqid\-(\w+)\.//) |
|
200
|
0 |
0 |
if ($txt eq '0') |
|
202
|
0 |
0 |
if (defined $timeout and not $timeout) |
|
212
|
0 |
0 |
if ($txt =~ /^(\d+)\.(.+)$/ and $1 == length $2) |
|
228
|
0 |
0 |
if ($backoff > 120) |
|
246
|
0 |
0 |
if (@args == 1) |
|
249
|
0 |
0 |
if (@args % 2) |
|
254
|
0 |
0 |
unless $$self{'PeerAddr'} ||= $$self{'PeerHost'} |
|
256
|
0 |
0 |
if (not $$self{'PeerPort'} and $$self{'PeerAddr'} =~ s/:(\d+)$//) |
|
264
|
0 |
0 |
unless my $suffix = $self->suffix |
|
278
|
0 |
0 |
if $$self{'Verbose'} |
|
280
|
0 |
0 |
if (my $txt = eval {
do {
$self->TXT_resolver->($name)
}
}) { } |
|
281
|
0 |
0 |
if $$self{'Verbose'} |
|
282
|
0 |
0 |
if ($txt =~ s/^$id\.(\d+)//) { } |
|
284
|
0 |
0 |
if ($status) |
|
285
|
0 |
0 |
if ($status == $INVALID_PASS) { } |
|
296
|
0 |
0 |
if ($txt =~ s/^\.(\w+)//) { } |
|
306
|
0 |
0 |
if ($txt =~ /^\.(\d+)\.(.*)/) { } |
|
309
|
0 |
0 |
if ($len == length $content) { } |
|
343
|
0 |
0 |
unless $length |
|
348
|
0 |
0 |
if ($length <= length $$self{'Buffer_R'}) |
|
352
|
0 |
0 |
if (length $$self{'Buffer_R'}) |
|
357
|
0 |
0 |
unless my $seqid = $$self{'seqid'} |
|
359
|
0 |
0 |
unless (defined $sniff) |
|
362
|
0 |
0 |
unless ($sniff) |
|
365
|
0 |
0 |
unless length $$self{'Buffer_R'} |
|
368
|
0 |
0 |
unless defined $_[0] |
|
379
|
0 |
0 |
if ($buffer =~ s/^(.*\Q$EOL\E)//) |
|
387
|
0 |
0 |
unless ($self->READ($buffer, 8192, length $buffer)) |
|
389
|
0 |
0 |
if (defined $buffer and length $buffer) { } |
|
407
|
0 |
0 |
unless defined $bytes |
|
409
|
0 |
0 |
unless $$self{'seqid'} |
|
412
|
0 |
0 |
if ($self->pending) |
|
414
|
0 |
0 |
unless $self->READ($Temp_Buffer_R, 8192, length $Temp_Buffer_R) |
|
425
|
0 |
0 |
if (my $seqid = delete $$self{'seqid'}) |
|
431
|
0 |
0 |
unless eval {
do {
require Net::DNS::Resolver;
$self->resolver->bgsend($name, 'TXT');
1
}
} |