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' ? : |