| line |
true |
false |
branch |
|
43
|
0 |
1 |
unless $zone |
|
45
|
0 |
1 |
ref $zone ? : |
|
49
|
1 |
0 |
if $file |
|
65
|
0 |
1 |
unless $$self{'ZONE'} |
|
72
|
0 |
28 |
if ($lines[$i] =~ /^\s*\$INCLUDE\s+(.+)\s*(.*)\s*.*$/i) |
|
74
|
0 |
0 |
'$ORIGIN ' . $2 ? : |
|
79
|
0 |
1 |
unless scalar @lines |
|
88
|
23 |
5 |
unless (/^[\s\;]*$/) |
|
92
|
7 |
16 |
if (/\(/ or $fullline) { } |
|
102
|
1 |
6 |
unless ($count) |
|
118
|
1 |
16 |
if ($line =~ /^\$ORIGIN\s+(.+)\s*\;*\s*$/) { } |
|
|
15 |
1 |
elsif (not $line =~ s/^\@/$origin/) { } |
|
122
|
0 |
1 |
if ($new =~ /\.$/) { } |
|
132
|
3 |
12 |
if ($line =~ s/^([-\*\w]+(\.[-\*\w]+)*)\s+/$1.$origin /) |
|
151
|
0 |
17 |
unless defined $parts[0] |
|
153
|
1 |
16 |
if ($parts[0] eq '$TTL') { } |
|
|
15 |
1 |
elsif ($parts[0] ne '$ORIGIN') { } |
|
159
|
6 |
9 |
if $label eq $origin |
|
162
|
0 |
15 |
if ($parts[0] =~ /^\d+$/) { } |
|
172
|
13 |
2 |
if (uc $_ eq $type) |
|
193
|
0 |
1 |
unless $ttl_default |
|
202
|
1 |
16 |
if $_->type eq 'IN SOA' |
|
210
|
2 |
15 |
if $_->ttl == 0 |
|
222
|
0 |
0 |
unless $$self{'ZONE'} |
|
224
|
0 |
0 |
if ($file) { } |
|
225
|
0 |
0 |
if (open FILE, ">$file") { } |