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)