Branch Coverage

blib/lib/Net/DNS/Create.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
25 3 3 if ($import_kind ne 'internal')
27 0 3 if $@
38 6 0 defined $domain ? :
63 103 defined $domain ? :
66 166 $name =~ /\.$/ ? :
6 232 $name eq '@' ? :
44 10 29 if $fq eq $domain
46 28 1 if substr($local, -length($domain) - 1, length($domain) + 1, '') eq ".$domain"
57 0 43 unless $_[0] =~ /(\d+)([hmsdw])/ and $1 * {'s', 1, 'm', 60, 'h', 3600, 'd', 86400, 'w', 604800}->{$2}
62 15 3 if length $t < 255
107 3 0 $rr eq 'soa' ? :
3 3 $rr eq 'rp' ? :
9 6 $rr eq 'cname' ? :
33 15 $rr eq 'a' ? :
3 9 ref $val eq 'ARRAY' ? :
3 0 $rr eq 'srv' ? :
3 3 $rr eq 'ns' ? :
3 6 $rr eq 'mx' ? :
12 9 $rr eq 'txt' ? :
48 21 $rr eq 'a' || $rr eq 'cname' || $rr eq 'rp' || $rr eq 'soa' ? :
114 0 3 ref $$val{$_} eq 'ARRAY' ? :