| line |
true |
false |
branch |
|
141
|
4 |
1 |
if (not defined $self->{'zonestr'} and defined $self->{'zonefile'}) |
|
144
|
0 |
5 |
unless (defined $self->{'zonestr'}) |
|
149
|
4 |
1 |
unless (exists $self->{'basepath'}) |
|
151
|
4 |
0 |
if defined $self->{'zonefile'} |
|
155
|
0 |
5 |
if $self->{'origin'} =~ /[^[^\.]$/ |
|
160
|
0 |
5 |
if ($self->{'require_soa'} and not exists $self->{'zone'}{$self->{'origin'}}{'soa'}) |
|
203
|
17 |
22 |
if $name ne $self->{'origin'} and not $name =~ /\.$/ |
|
206
|
2 |
37 |
if defined $n |
|
207
|
1 |
36 |
if wantarray |
|
225
|
2 |
5 |
if $name ne $self->{'origin'} and not $name =~ /\.$/ |
|
246
|
1 |
0 |
if $name ne $self->{'origin'} and not $name =~ /\.$/ |
|
278
|
1 |
3 |
if $name ne $self->{'origin'} and not $name =~ /\.$/ |
|
330
|
1 |
1 |
if ($p{'parse'}) |
|
408
|
0 |
8 |
unless open my $zonefh, $file |
|
422
|
4 |
0 |
if (not defined $zonestr and exists $opts{'zonefile'}) |
|
427
|
4 |
5 |
if ($opts{'included'}) |
|
460
|
54 |
180 |
if /^\s*$/ |
|
473
|
37 |
143 |
if ($mrow) { } |
|
|
9 |
134 |
elsif (/^.*\([^\)]*$/) { } |
|
476
|
28 |
9 |
unless /\)/ |
|
492
|
4 |
139 |
if (/^ /) |
|
496
|
0 |
143 |
if /^\$ORIGIN ([\w\-\.]+)\s*$/i |
|
497
|
4 |
139 |
if /^\$TTL (\d+)\s*$/i |
|
498
|
4 |
135 |
if (/^\$INCLUDE (\S+)(?: (\S+))?\s*(?:;.*)?$/i) |
|
499
|
0 |
4 |
defined $2 ? : |
|
502
|
4 |
0 |
unless ($1 =~ m[^/]) |
|
525
|
135 |
0 |
if (defined $ttlclass) |
|
532
|
0 |
135 |
if ($ttlclass) |
|
538
|
19 |
116 |
defined $ttl ? : |
|
539
|
20 |
115 |
defined $class ? : |
|
542
|
0 |
135 |
unless $name and $type and $rdata |
|
544
|
0 |
135 |
unless (defined $def_class) |
|
549
|
0 |
135 |
unless (defined $ttl) |
|
557
|
3 |
4 |
if ($self->{'append_origin'} and $type =~ /^(?:cname|afsdb|mx|ns)$/i and $rdata ne $origin and not $rdata =~ /\.$/) |
|
591
|
1 |
140 |
unless $origin =~ /\.$/ |
|
593
|
30 |
111 |
if $name =~ /\.$/ |
|
594
|
1 |
110 |
if $origin eq '.' |