Branch Coverage

blib/lib/Net/DNS/Create.pm
Criterion Covered Total %
branch 33 42 78.5


line true false branch
25 3 3 if ($import_kind ne 'internal')
27 2 1 if $@
38 2 0 defined $domain ? :
21 20 defined $domain ? :
8 41 $name =~ /\.$/ ? :
2 49 $name eq '@' ? :
44 0 0 if $fq eq $domain
46 0 0 if substr($local, -length($domain) - 1, length($domain) + 1, '') eq ".$domain"
57 0 5 unless $_[0] =~ /(\d+)([hmsdw])/ and $1 * {'s', 1, 'm', 60, 'h', 3600, 'd', 86400, 'w', 604800}->{$2}
62 4 1 if length $t < 255
107 1 0 $rr eq 'soa' ? :
1 1 $rr eq 'rp' ? :
3 2 $rr eq 'cname' ? :
11 5 $rr eq 'a' ? :
1 3 ref $val eq 'ARRAY' ? :
1 0 $rr eq 'srv' ? :
1 1 $rr eq 'ns' ? :
1 2 $rr eq 'mx' ? :
4 3 $rr eq 'txt' ? :
16 7 $rr eq 'a' || $rr eq 'cname' || $rr eq 'rp' || $rr eq 'soa' ? :
114 0 1 ref $$val{$_} eq 'ARRAY' ? :