| line |
true |
false |
branch |
|
140
|
4 |
1 |
if (not defined $$self{'zonestr'} and defined $$self{'zonefile'}) |
|
143
|
0 |
5 |
unless (defined $$self{'zonestr'}) |
|
148
|
4 |
1 |
unless (exists $$self{'basepath'}) |
|
149
|
4 |
0 |
if defined $$self{'zonefile'} |
|
154
|
0 |
5 |
if $$self{'origin'} =~ /[^[^\.]$/ |
|
159
|
0 |
5 |
if ($$self{'require_soa'} and not exists $$self{'zone'}{$$self{'origin'}}{'soa'}) |
|
202
|
13 |
18 |
if $name ne $$self{'origin'} and not $name =~ /\.$/ |
|
205
|
2 |
29 |
if defined $n |
|
206
|
1 |
28 |
if wantarray |
|
224
|
2 |
5 |
if $name ne $$self{'origin'} and not $name =~ /\.$/ |
|
245
|
1 |
0 |
if $name ne $$self{'origin'} and not $name =~ /\.$/ |
|
277
|
1 |
3 |
if $name ne $$self{'origin'} and not $name =~ /\.$/ |
|
329
|
1 |
1 |
if ($p{'parse'}) |
|
407
|
0 |
8 |
unless open my $zonefh, $file |
|
421
|
4 |
5 |
if (not defined $zonestr and exists $opts{'zonefile'}) |
|
426
|
4 |
5 |
if ($opts{'included'}) |
|
451
|
38 |
136 |
if /^\s*$/ |
|
459
|
25 |
111 |
if ($mrow) { } |
|
|
5 |
106 |
elsif (/^.*\([^\)]*$/) { } |
|
462
|
20 |
5 |
unless /\)/ |
|
478
|
4 |
107 |
if (/^ /) |
|
482
|
0 |
111 |
if /^\$ORIGIN ([\w\-\.]+)\s*$/i |
|
483
|
4 |
107 |
if /^\$TTL (\d+)\s*$/i |
|
484
|
4 |
103 |
if (/^\$INCLUDE (\S+)(?: (\S+))?\s*(?:;.*)?$/i) |
|
485
|
0 |
4 |
defined $2 ? : |
|
488
|
4 |
0 |
unless ($1 =~ m[^/]) |
|
509
|
103 |
0 |
if (defined $ttlclass) |
|
516
|
0 |
103 |
if ($ttlclass) |
|
522
|
19 |
84 |
defined $ttl ? : |
|
523
|
20 |
83 |
defined $class ? : |
|
526
|
0 |
103 |
unless $name and $type and $rdata |
|
528
|
0 |
103 |
unless (defined $def_class) |
|
533
|
0 |
103 |
unless (defined $ttl) |
|
541
|
3 |
4 |
if ($$self{'append_origin'} and $type =~ /^(?:cname|afsdb|mx|ns)$/i and $rdata ne $origin and not $rdata =~ /\.$/) |
|
559
|
1 |
108 |
unless $origin =~ /\.$/ |
|
561
|
30 |
79 |
if $name =~ /\.$/ |
|
562
|
1 |
78 |
if $origin eq '.' |