| line |
true |
false |
branch |
|
25
|
0 |
0 |
if (-d $path) { } |
|
|
0 |
0 |
elsif (-f $path) { } |
|
26
|
0 |
0 |
unless opendir DIR, $path |
|
28
|
0 |
0 |
if -d $file |
|
29
|
0 |
0 |
if $file =~ /^(\.|#)/ |
|
30
|
0 |
0 |
if $file =~ /~$/ |
|
52
|
0 |
0 |
unless open my $fh, '<', "$file" |
|
66
|
0 |
0 |
unless $line |
|
67
|
0 |
0 |
if $line =~ /^\s+$/ |
|
68
|
0 |
0 |
if $line =~ /^;/ |
|
70
|
0 |
0 |
if ($line =~ /\$ORIGIN\s+([a-zA-Z.\-]+)/) { } |
|
|
0 |
0 |
elsif (not $base) { } |
|
73
|
0 |
0 |
unless $base |
|
84
|
0 |
0 |
if (not $record[0] =~ /^\d+$/) { } |
|
85
|
0 |
0 |
unless $record[0] =~ /\.$/ |
|
91
|
0 |
0 |
if ($record[3] eq 'CNAME' and not $record[4] =~ /\.$/) |
|
95
|
0 |
0 |
if ($record[3] eq 'MX' and not $record[5] =~ /\.$/) |
|
113
|
0 |
0 |
if ($rr->type eq 'A') |
|
142
|
0 |
0 |
if ($$host{'CNAME'} and @{$$host{'CNAME'};} > 1) |
|
148
|
0 |
0 |
unless $target |
|
149
|
0 |
0 |
unless $$target{'LOC'} |
|
154
|
0 |
0 |
if $$geo{$$target{'__RECORD__'}} |
|
160
|
0 |
0 |
if ($$target{'TXT'}) |
|
163
|
0 |
0 |
if ($txt[0] eq 'GlbDNS::RADIUS') { } |
|
|
0 |
0 |
elsif ($txt[0] eq 'GlbDNS::CHECK') { } |