| line |
true |
false |
branch |
|
323
|
0 |
0 |
if (defined $file) |
|
355
|
0 |
0 |
if (defined $fh) |
|
388
|
0 |
0 |
if (defined $text) |
|
462
|
2 |
43 |
if (defined $self->{'-text'}) { } |
|
|
41 |
2 |
elsif (defined $self->{'-file'}) { } |
|
|
2 |
0 |
elsif (defined $self->{'-fh'}) { } |
|
465
|
0 |
2 |
unless open $fh, '<', \$text |
|
470
|
1 |
40 |
unless open $fh, '<', $file |
|
475
|
0 |
2 |
unless (seek $fh, 0, 1) |
|
480
|
0 |
0 |
unless eval {
do {
require IO::Scalar
}
} |
|
497
|
2 |
80 |
unless defined($line = readline $fh) |
|
498
|
2 |
78 |
if $line =~ /^\s*$/ |
|
504
|
46 |
2606 |
if ($fmt->{'test'}->($line, $lineno)) |
|
514
|
2 |
42 |
if (defined $self->{'-fh'}) { } |
|
516
|
0 |
2 |
unless seek $fh, $start_pos, 0 |
|
521
|
42 |
2 |
$done ? : |