| line |
true |
false |
branch |
|
95
|
16 |
51 |
if (ref $filename) |
|
97
|
15 |
1 |
if ref($filename) =~ /IO::File|FileHandle|GLOB|Text/ |
|
101
|
1 |
50 |
unless $filename |
|
103
|
4 |
46 |
unless $self->{'filehandle'} = "IO::File"->new($filename, $discipline) |
|
132
|
5 |
96 |
unless ref $self |
|
134
|
9 |
87 |
if (wantarray) |
|
142
|
1 |
8 |
if $@ |
|
150
|
26 |
61 |
if $@ |
|
180
|
2 |
89 |
if defined $self->{'eom'} |
|
261
|
7 |
11 |
if ref $name |
|
262
|
8 |
3 |
unless $include_dir |
|
264
|
1 |
2 |
if "File::Spec"->file_name_is_absolute($name) |
|
265
|
1 |
1 |
if -f $name |
|
272
|
4 |
8 |
if not ref $arg1 and $arg1 eq __PACKAGE__ |
|
283
|
4 |
4 |
wantarray ? : |
|
|
8 |
2 |
unless $@ |
|
285
|
1 |
1 |
wantarray ? : |
|
298
|
1 |
6 |
ref $data ? : |
|
351
|
6 |
1 |
if $arg1 eq __PACKAGE__ |
|
376
|
1 |
11 |
$last < $first ? : |
|
390
|
11 |
16 |
unless $self->{'count'}-- > 0 |
|
424
|
7 |
3 |
if $format =~ /[doxX]/ |
|
427
|
1 |
2 |
if $format =~ /[n]/ |
|
428
|
1 |
1 |
if $format =~ /[N]/ |
|
453
|
88 |
467 |
if /^\s*;/ |
|
454
|
79 |
388 |
unless /\S/ |
|
456
|
59 |
329 |
if (/["(]/) |
|
462
|
343 |
616 |
if defined $_ |
|
471
|
7 |
4 |
if defined $_ |
|
475
|
24 |
35 |
if (grep {$_ eq "(";} @token) |
|
483
|
423 |
610 |
if defined $_ |
|
484
|
83 |
1 |
unless $token[-1] =~ /^"[^"]*$/ |
|
490
|
352 |
36 |
unless /^[\$]/ |
|
492
|
101 |
128 |
if defined $_ |
|
493
|
7 |
29 |
if (/^\$INCLUDE/) { } |
|
|
13 |
16 |
elsif (/^\$GENERATE/) { } |
|
|
9 |
7 |
elsif (/^\$ORIGIN/) { } |
|
|
4 |
3 |
elsif (/^\$TTL/) { } |
|
495
|
1 |
6 |
unless @argument |
|
500
|
1 |
12 |
unless @template |
|
505
|
1 |
8 |
unless defined $origin |
|
510
|
1 |
3 |
unless defined $ttl |
|
531
|
16 |
287 |
unless $self->_getline |
|
540
|
15 |
253 |
if $noname and $latest |
|
542
|
34 |
234 |
unless $self->{'class'} |
|
545
|
243 |
25 |
unless (defined $self->{'TTL'}) |
|
546
|
5 |
238 |
if $rr->type eq "SOA" |
|
548
|
111 |
157 |
unless defined $rr->{'ttl'} |
|
558
|
1 |
5 |
if $self->{'fileopen'}{$filename}++ |
|
561
|
1 |
4 |
unless my $filehandle = "IO::File"->new($filename, $discipline) |
|
565
|
1 |
3 |
if $origin |
|
574
|
67 |
9 |
unless $context |