| line |
true |
false |
branch |
|
25
|
1 |
41 |
if $debug |
|
27
|
14 |
28 |
if ($filename_or_handle) |
|
29
|
3 |
11 |
unless ($self->read($filename_or_handle)) |
|
45
|
15 |
10 |
if (ref $filename_or_handle) { } |
|
47
|
0 |
15 |
unless eval {
do {
*$filename_or_handle{'IO'}
}
} or $filename_or_handle->isa('IO::Handle') |
|
51
|
30 |
0 |
defined $br ? : |
|
60
|
0 |
25 |
unless $ret |
|
79
|
1 |
0 |
$mode + 0 eq $mode ? : |
|
94
|
1 |
1 |
ref $_[0] ? : |
|
105
|
9 |
13 |
wantarray ? : |
|
113
|
0 |
2 |
ref $_[0] ? : |
|
115
|
0 |
6 |
unless (-r $filename) |
|
121
|
0 |
6 |
unless (@props) |
|
127
|
0 |
6 |
unless (open my $fh, '<', $filename) |
|
148
|
0 |
2 |
unless $count |
|
166
|
4 |
8 |
if (defined $filename) { } |
|
170
|
1 |
3 |
if (ref $filename) |
|
172
|
0 |
1 |
unless eval {
do {
*$filename{'IO'}
}
} or $filename->isa('IO::Handle') |
|
192
|
0 |
8 |
unless $status |
|
201
|
0 |
3 |
unless defined $data |
|
223
|
2 |
0 |
unless defined $value and $value == 0 |
|
232
|
0 |
4 |
if ($opt_warn > 1) { } |
|
|
0 |
4 |
elsif ($opt_warn) { } |