| 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 ? : |