| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless open my $fh, $$self{'mode'}, $file |
|
51
|
0 |
7 |
unless open my $fh, $mode, $file |
|
75
|
5 |
15 |
if ($self->EOF) |
|
90
|
9 |
6 |
$pos + $length > $$self{'sizes'}[$f] ? : |
|
94
|
9 |
6 |
if (tell $$self{'handles'}[$f] != $pos) |
|
95
|
0 |
9 |
unless seek $$self{'handles'}[$f], $pos, 0 |
|
101
|
0 |
15 |
unless defined $b |
|
106
|
2 |
13 |
if ($b < $this_read) |
|
111
|
6 |
9 |
if ($this_read == $length) { } |
|
122
|
1 |
5 |
if $self->EOF |
|
126
|
2 |
3 |
if (not defined $/) { } |
|
|
0 |
3 |
elsif (ref $/) { } |
|
136
|
3 |
0 |
if (index($buf, $/) != -1) |
|
159
|
0 |
3 |
if ($self->EOF) |
|
171
|
1 |
2 |
$pos + $length > $$self{'sizes'}[$f] ? : |
|
175
|
2 |
1 |
if (tell $$self{'handles'}[$f] != $pos) |
|
176
|
0 |
2 |
unless seek $$self{'handles'}[$f], $pos, 0 |
|
180
|
0 |
3 |
unless print {$$self{'handles'}[$f];} substr($_[1], $offset, $this_write) |
|
185
|
2 |
1 |
if ($this_write == $length) { } |
|
194
|
0 |
2 |
defined $, ? : |
|
211
|
12 |
0 |
if $whence == 0 |
|
212
|
0 |
12 |
if $whence == 1 |
|
213
|
0 |
12 |
if $whence == 2 |
|
215
|
0 |
12 |
if $pos < 0 |