Branch Coverage

blib/lib/Metabrik/Client/Dns.pm
Criterion Covered Total %
branch 0 140 0.0


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