| line |
true |
false |
branch |
|
354
|
0 |
5 |
if $self->done |
|
368
|
0 |
5 |
if (not $$self{'WRITE'} and $$self{'INVOKED'} and not $$self{'LEVEL'} and $$self{'passthru'} and $$self{'PASSED'}) { } |
|
382
|
2 |
19 |
unless $_ = $self->next_pair |
|
384
|
0 |
19 |
if (/^#/) |
|
385
|
0 |
0 |
if $$self{'passthru'} |
|
389
|
0 |
19 |
if (/^\s*$delim/o) |
|
394
|
3 |
16 |
if (/$subrec_end$/o) |
|
395
|
3 |
0 |
if $$self{'LEVEL'} |
|
396
|
0 |
0 |
if $$self{'passthru'} |
|
400
|
0 |
16 |
unless ($key, $value) = /^\s*(.+?)\s*$delim\s*(.*)/o |
|
402
|
16 |
0 |
if (not @keywords or $interested{$key}) { } |
|
|
0 |
0 |
elsif ($$self{'passthru'}) { } |
|
405
|
3 |
13 |
if ($value =~ /^\s*$subrec_start/o) |
|
408
|
0 |
3 |
unless defined $pebble |
|
421
|
0 |
5 |
unless $found |
|
438
|
0 |
7 |
unless ref $value |
|
439
|
4 |
3 |
if (exists $$value{'.name'}) { } |
|
458
|
0 |
3 |
if (wantarray) { } |
|
462
|
0 |
0 |
if $s |
|
469
|
2 |
0 |
if $s |
|
483
|
0 |
0 |
unless my $self = $class->new(@_) |
|
524
|
2 |
0 |
if defined $data |
|
526
|
2 |
0 |
if (not $in =~ /ARGV/) { } |
|
527
|
1 |
1 |
if eof $in |
|
529
|
0 |
0 |
if eof() |
|
533
|
2 |
0 |
if defined $data |
|
541
|
3 |
5 |
if defined $$self{'PAIRS'} and @{$$self{'PAIRS'};} |
|
548
|
2 |
19 |
unless $$self{'PAIRS'} |
|
549
|
0 |
21 |
unless $$self{'PAIRS'} |
|
550
|
19 |
2 |
if @{$$self{'PAIRS'};} |
|
565
|
9 |
0 |
if (exists $$value{'.name'}) { } |
|
581
|
0 |
15 |
unless $$s{'binary'} |
|
589
|
0 |
13 |
unless $$s{'binary'} |
|
607
|
0 |
29 |
unless $$s{'binary'} |
|
616
|
0 |
4 |
unless $thingy |
|
617
|
4 |
0 |
if defined fileno $thingy |
|
622
|
0 |
0 |
if defined fileno $qualified_thingy |
|
627
|
0 |
0 |
if $write |
|
628
|
0 |
0 |
unless open $fh, $thingy |
|
635
|
0 |
0 |
if not $$self{'WRITE'} and $$self{'INVOKED'} and not $$self{'LEVEL'} and $$self{'passthru'} and $$self{'PASSED'} |
|
644
|
0 |
2 |
unless @param |
|
647
|
0 |
2 |
if (ref $param[0] eq 'HASH') { } |
|
650
|
2 |
0 |
unless defined $param[0] and substr($param[0], 0, 1) eq '-' |
|
667
|
0 |
0 |
if (ref $key eq 'ARRAY') { } |
|
669
|
0 |
0 |
if defined $value |
|
679
|
0 |
0 |
if %param |