| line |
true |
false |
branch |
|
30
|
0 |
7 |
unless open my $fh, $mode, $file |
|
53
|
5 |
14 |
if ($self->EOF) |
|
69
|
9 |
5 |
$pos + $length > $self->{'sizes'}[$f] ? : |
|
72
|
0 |
14 |
unless seek $self->{'handles'}[$f], $pos, 0 |
|
77
|
0 |
14 |
unless defined $b |
|
81
|
2 |
12 |
if ($b < $this_read) |
|
86
|
5 |
9 |
if ($this_read == $length) { } |
|
97
|
1 |
5 |
if $self->EOF |
|
101
|
2 |
3 |
if (not defined $/) { } |
|
|
0 |
3 |
elsif (ref $/) { } |
|
111
|
3 |
0 |
if (index($buf, $/) != -1) |
|
134
|
0 |
3 |
if ($self->EOF) |
|
147
|
1 |
2 |
$pos + $length > $self->{'sizes'}[$f] ? : |
|
150
|
0 |
3 |
unless seek $self->{'handles'}[$f], $pos, 0 |
|
153
|
0 |
3 |
unless print {$self->{'handles'}[$f];} substr($_[1], $offset, $this_write) |
|
158
|
2 |
1 |
if ($this_write == $length) { } |
|
167
|
0 |
2 |
defined $, ? : |
|
184
|
11 |
0 |
if $whence == 0 |
|
185
|
0 |
11 |
if $whence == 1 |
|
186
|
0 |
11 |
if $whence == 2 |
|
188
|
0 |
11 |
if $pos < 0 |