Branch Coverage

blib/lib/Net/DNS/Create.pm
Criterion Covered Total %
branch 38 44 86.3


line true false branch
25 3 3 if ($import_kind ne 'internal')
27 0 3 if $@
38 6 0 defined $domain ? :
78 133 defined $domain ? :
87 211 $name =~ /\.$/ ? :
6 298 $name eq '@' ? :
44 10 40 if $fq eq $domain
46 39 1 if substr($local, -length($domain) - 1, length($domain) + 1, '') eq ".$domain"
57 0 49 unless $_[0] =~ /(\d+)([hmsdw])/ and $1 * {'s', 1, 'm', 60, 'h', 3600, 'd', 86400, 'w', 604800}->{$2}
69 18 3 if length $t < 255
77 9 48 ref $_[0] eq 'ARRAY' ? :
80 3 3 ref $_[0] eq 'ARRAY' && ref $_[0][0] eq 'ARRAY' ? :
123 3 0 $rr eq 'soa' ? :
9 3 $rr eq 'cname' ? :
3 0 $rr eq 'srv' ? :
6 3 $rr eq 'ns' ? :
3 9 $rr eq 'mx' ? :
15 12 $rr eq 'txt' ? :
6 27 $rr eq 'rp' ? :
36 33 $rr eq 'a' ? :
12 69 $rr eq 'cname' || $rr eq 'soa' ? :
130 0 3 ref $$val{$_} eq 'ARRAY' ? :