| line |
true |
false |
branch |
|
96
|
16 |
51 |
if (ref $filename) |
|
98
|
15 |
1 |
if ref($filename) =~ /IO::File|FileHandle|GLOB|Text/ |
|
102
|
1 |
50 |
unless $filename |
|
104
|
4 |
46 |
unless $self->{'filehandle'} = "IO::File"->new($filename, $discipline) |
|
133
|
5 |
96 |
unless ref $self |
|
135
|
9 |
87 |
if (wantarray) |
|
143
|
1 |
8 |
if $@ |
|
151
|
27 |
60 |
if $@ |
|
181
|
2 |
90 |
if defined $self->{'eom'} |
|
262
|
7 |
11 |
if ref $name |
|
263
|
8 |
3 |
unless $include_dir |
|
265
|
1 |
2 |
if "File::Spec"->file_name_is_absolute($name) |
|
266
|
1 |
1 |
if -f $name |
|
273
|
4 |
8 |
if not ref $arg1 and $arg1 eq "Net::DNS::ZoneFile" |
|
284
|
4 |
4 |
wantarray ? : |
|
|
8 |
2 |
unless $@ |
|
286
|
1 |
1 |
wantarray ? : |
|
299
|
1 |
6 |
ref $data ? : |
|
352
|
6 |
1 |
if $arg1 eq "Net::DNS::ZoneFile" |
|
377
|
1 |
11 |
$last < $first ? : |
|
391
|
11 |
16 |
unless $self->{'count'}-- > 0 |
|
425
|
7 |
3 |
if $format =~ /[doxX]/ |
|
428
|
1 |
2 |
if $format =~ /[n]/ |
|
429
|
1 |
1 |
if $format =~ /[N]/ |
|
454
|
92 |
467 |
if /^\s*;/ |
|
455
|
79 |
388 |
unless /\S/ |
|
457
|
59 |
329 |
if (/["(]/) |
|
463
|
343 |
616 |
if defined $_ |
|
472
|
7 |
4 |
if defined $_ |
|
476
|
24 |
35 |
if (grep {$_ eq "(";} @token) |
|
484
|
423 |
610 |
if defined $_ |
|
485
|
83 |
1 |
unless $token[-1] =~ /^"[^"]*$/ |
|
491
|
352 |
36 |
unless /^[\$]/ |
|
493
|
101 |
128 |
if defined $_ |
|
494
|
7 |
29 |
if (/^\$INCLUDE/) { } |
|
|
13 |
16 |
elsif (/^\$GENERATE/) { } |
|
|
9 |
7 |
elsif (/^\$ORIGIN/) { } |
|
|
4 |
3 |
elsif (/^\$TTL/) { } |
|
496
|
1 |
6 |
unless @argument |
|
501
|
1 |
12 |
unless @template |
|
506
|
1 |
8 |
unless defined $origin |
|
511
|
1 |
3 |
unless defined $ttl |
|
532
|
16 |
287 |
unless $self->_getline |
|
541
|
15 |
252 |
if $noname and $latest |
|
543
|
34 |
233 |
unless $self->{'class'} |
|
546
|
242 |
25 |
unless (defined $self->{'TTL'}) |
|
547
|
5 |
237 |
if $rr->type eq "SOA" |
|
549
|
110 |
157 |
unless defined $rr->{'ttl'} |
|
559
|
1 |
5 |
if $self->{'fileopen'}{$filename}++ |
|
562
|
1 |
4 |
unless my $filehandle = "IO::File"->new($filename, $discipline) |
|
566
|
1 |
3 |
if $origin |
|
575
|
67 |
9 |
unless $context |