| line |
true |
false |
branch |
|
55
|
0 |
0 |
if (defined $ns) |
|
68
|
0 |
0 |
unless my $ft = "Metabrik::File::Text"->new_from_brik_init($self) |
|
73
|
0 |
0 |
if (-f $file) |
|
74
|
0 |
0 |
unless my $lines = $ft->read($file) |
|
76
|
0 |
0 |
if (/^\s*nameserver\s+/) |
|
86
|
0 |
0 |
if (@nameservers > 0) { } |
|
93
|
0 |
0 |
@nameservers > 0 ? : |
|
102
|
0 |
0 |
unless $self->brik_help_run_undef_arg("a_lookup", $host) |
|
103
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("a_lookup", $host, "ARRAY", "SCALAR") |
|
106
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
109
|
0 |
0 |
unless my $r = $self->a_lookup($this, $nameserver, $port) |
|
116
|
0 |
0 |
unless my $list = $self->lookup($host, "A", $nameserver, $port) |
|
120
|
0 |
0 |
if (defined $_->{'address'}) |
|
125
|
0 |
0 |
$self->return_list ? : |
|
137
|
0 |
0 |
unless $self->brik_help_run_undef_arg("aaaa_lookup", $host) |
|
138
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("aaaa_lookup", $host, "ARRAY", "SCALAR") |
|
141
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
144
|
0 |
0 |
unless my $r = $self->aaaa_lookup($this, $nameserver, $port) |
|
151
|
0 |
0 |
unless my $list = $self->lookup($host, "AAAA", $nameserver, $port) |
|
155
|
0 |
0 |
if (defined $_->{'address'}) |
|
160
|
0 |
0 |
$self->return_list ? : |
|
172
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ptr_lookup", $host) |
|
173
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("ptr_lookup", $host, "ARRAY", "SCALAR") |
|
176
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
179
|
0 |
0 |
unless my $r = $self->ptr_lookup($this, $nameserver, $port) |
|
186
|
0 |
0 |
unless my $list = $self->lookup($host, "PTR", $nameserver, $port) |
|
190
|
0 |
0 |
if (defined $_->{'ptrdname'}) |
|
195
|
0 |
0 |
$self->return_list ? : |
|
207
|
0 |
0 |
unless $self->brik_help_run_undef_arg("mx_lookup", $host) |
|
208
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("mx_lookup", $host, "ARRAY", "SCALAR") |
|
211
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
214
|
0 |
0 |
unless my $r = $self->mx_lookup($this, $nameserver, $port) |
|
221
|
0 |
0 |
unless my $list = $self->lookup($host, "MX", $nameserver, $port) |
|
225
|
0 |
0 |
if (defined $_->{'exchange'}) |
|
230
|
0 |
0 |
$self->return_list ? : |
|
242
|
0 |
0 |
unless $self->brik_help_run_undef_arg("ns_lookup", $host) |
|
243
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("ns_lookup", $host, "ARRAY", "SCALAR") |
|
246
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
249
|
0 |
0 |
unless my $r = $self->ns_lookup($this, $nameserver, $port) |
|
256
|
0 |
0 |
unless my $list = $self->lookup($host, "NS", $nameserver, $port) |
|
260
|
0 |
0 |
if (defined $_->{'nsdname'}) |
|
265
|
0 |
0 |
$self->return_list ? : |
|
277
|
0 |
0 |
unless $self->brik_help_run_undef_arg("soa_lookup", $host) |
|
278
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("soa_lookup", $host, "ARRAY", "SCALAR") |
|
281
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
284
|
0 |
0 |
unless my $r = $self->soa_lookup($this, $nameserver, $port) |
|
291
|
0 |
0 |
unless my $list = $self->lookup($host, "SOA", $nameserver, $port) |
|
295
|
0 |
0 |
if (defined $_->{'rdatastr'}) |
|
300
|
0 |
0 |
$self->return_list ? : |
|
312
|
0 |
0 |
unless $self->brik_help_run_undef_arg("txt_lookup", $host) |
|
313
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("txt_lookup", $host, "ARRAY", "SCALAR") |
|
316
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
319
|
0 |
0 |
unless my $r = $self->txt_lookup($this, $nameserver, $port) |
|
326
|
0 |
0 |
unless my $list = $self->lookup($host, "TXT", $nameserver, $port) |
|
330
|
0 |
0 |
if (defined $_->{'rdatastr'}) |
|
335
|
0 |
0 |
$self->return_list ? : |
|
347
|
0 |
0 |
unless $self->brik_help_run_undef_arg("srv_lookup", $host) |
|
348
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("srv_lookup", $host, "ARRAY", "SCALAR") |
|
351
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
354
|
0 |
0 |
unless my $r = $self->srv_lookup($this, $nameserver, $port) |
|
361
|
0 |
0 |
unless my $list = $self->lookup($host, "SRV", $nameserver, $port) |
|
365
|
0 |
0 |
if (defined $_->{'target'}) |
|
370
|
0 |
0 |
$self->return_list ? : |
|
382
|
0 |
0 |
unless $self->brik_help_run_undef_arg("cname_lookup", $host) |
|
383
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("cname_lookup", $host, "ARRAY", "SCALAR") |
|
386
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
389
|
0 |
0 |
unless my $r = $self->cname_lookup($this, $nameserver, $port) |
|
396
|
0 |
0 |
unless my $list = $self->lookup($host, "CNAME", $nameserver, $port) |
|
400
|
0 |
0 |
if (defined $_->{'cname'}) |
|
405
|
0 |
0 |
$self->return_list ? : |