Branch Coverage

blib/lib/Metabrik/Audit/Dns.pm
Criterion Covered Total %
branch 0 42 0.0


line true false branch
45 0 0 unless $self->brik_help_run_undef_arg('version', $nameserver)
46 0 0 unless my $ref = $self->brik_help_run_invalid_arg('version', $nameserver, 'ARRAY', 'SCALAR')
50 0 0 if ($ref eq 'ARRAY') { }
57 0 0 $self->log->level > 2 ? :
0 0 unless my $dns = 'Net::DNS::Resolver'->new('nameservers', [$nameserver], 'recurse', 0, 'searchlist', [], 'debug', $self->log->level > 2 ? 1 : 0, 'udp_timeout', $self->rtimeout, 'tcp_timeout', $self->rtimeout)
69 0 0 if (defined $res and defined $res->{'answer'})
71 0 0 if (defined $rr and defined $rr->{'rdata'} || defined $rr->{'txtdata'})
87 0 0 unless $self->brik_help_run_undef_arg('recursion', $nameserver)
88 0 0 unless my $ref = $self->brik_help_run_invalid_arg('recursion', $nameserver, 'ARRAY', 'SCALAR')
92 0 0 if ($ref eq 'ARRAY') { }
99 0 0 $self->log->level > 2 ? :
0 0 unless my $dns = 'Net::DNS::Resolver'->new('nameservers', [$nameserver], 'recurse', 1, 'searchlist', [], 'debug', $self->log->level > 2 ? 1 : 0, 'udp_timeout', $self->rtimeout, 'tcp_timeout', $self->rtimeout)
110 0 0 if (defined $res and defined $res->answer)
126 0 0 unless $self->brik_help_run_undef_arg('axfr', $nameserver)
127 0 0 unless my $ref = $self->brik_help_run_invalid_arg('axfr', $nameserver, 'ARRAY', 'SCALAR')
129 0 0 unless $self->brik_help_run_undef_arg('axfr', $domainname)
132 0 0 if ($ref eq 'ARRAY') { }
139 0 0 ref $domainname eq 'ARRAY' ? :
0 0 $self->log->level > 2 ? :
0 0 unless my $dns = 'Net::DNS::Resolver'->new('nameservers', [$nameserver], 'recurse', 0, 'searchlist', ref $domainname eq 'ARRAY' ? $domainname : [$domainname], 'debug', $self->log->level > 2 ? 1 : 0, 'udp_timeout', $self->rtimeout, 'tcp_timeout', $self->rtimeout)
153 0 0 if (@res)