| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless $self->brik_help_run_undef_arg("create_resolver", $nameserver) |
|
61
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("create_resolver", $nameserver, "ARRAY", "SCALAR") |
|
69
|
0 |
0 |
$self->log->level > 2 ? : |
|
82
|
0 |
0 |
if (defined $src_ip_address) |
|
86
|
0 |
0 |
if (defined $src_port) |
|
91
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
101
|
0 |
0 |
unless (defined $resolver) |
|
125
|
0 |
0 |
unless $self->brik_help_run_undef_arg("lookup", $host) |
|
126
|
0 |
0 |
unless $self->brik_help_run_undef_arg("lookup", $nameserver) |
|
129
|
0 |
0 |
unless (defined $resolver) |
|
130
|
0 |
0 |
unless $self->create_resolver($nameserver, $port) |
|
140
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (not defined $packet) { } |
|
162
|
0 |
0 |
if ($rr->can("address")) |
|
165
|
0 |
0 |
if ($rr->can("cname")) |
|
168
|
0 |
0 |
if ($rr->can("exchange")) |
|
171
|
0 |
0 |
if ($rr->can("nsdname")) |
|
174
|
0 |
0 |
if ($rr->can("ptrdname")) |
|
177
|
0 |
0 |
if ($rr->can("rdatastr")) |
|
180
|
0 |
0 |
if ($rr->can("dummy")) |
|
183
|
0 |
0 |
if ($rr->can("target")) |
|
200
|
0 |
0 |
unless $self->brik_help_run_undef_arg("background_lookup", $host) |
|
201
|
0 |
0 |
unless $self->brik_help_run_undef_arg("background_lookup", $nameserver) |
|
204
|
0 |
0 |
unless (defined $resolver) |
|
205
|
0 |
0 |
unless $self->create_resolver($nameserver, $port) |
|
215
|
0 |
0 |
if ($@ and not $@ =~ /long domain label/) { } |
|
|
0 |
0 |
elsif (not defined $handle) { } |
|
217
|
0 |
0 |
ref $nameserver eq 'ARRAY' ? : |
|
223
|
0 |
0 |
ref $nameserver eq 'ARRAY' ? : |
|
238
|
0 |
0 |
unless $self->brik_help_set_undef_arg("resolver", $resolver) |
|
239
|
0 |
0 |
unless $self->brik_help_run_undef_arg("background_read", $handle) |
|
240
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("background_read", $handle, "IO::Socket::IP") |
|
244
|
0 |
0 |
if ($resolver->bgbusy($handle)) |
|
252
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (not defined $packet) { } |
|
274
|
0 |
0 |
if ($rr->can("address")) |
|
277
|
0 |
0 |
if ($rr->can("cname")) |
|
280
|
0 |
0 |
if ($rr->can("exchange")) |
|
283
|
0 |
0 |
if ($rr->can("nsdname")) |
|
286
|
0 |
0 |
if ($rr->can("ptrdname")) |
|
289
|
0 |
0 |
if ($rr->can("rdatastr")) |
|
292
|
0 |
0 |
if ($rr->can("dummy")) |
|
295
|
0 |
0 |
if ($rr->can("target")) |
|
311
|
0 |
0 |
unless $self->brik_help_run_undef_arg("version_bind", $nameserver) |
|
315
|
0 |
0 |
$self->log->level > 2 ? : |
|
324
|
0 |
0 |
unless (defined $resolver) |
|
330
|
0 |
0 |
if (defined $res and exists $res->{'answer'}) |
|
332
|
0 |
0 |
if (defined $rr and exists $rr->{'rdata'}) |