| line |
true |
false |
branch |
|
19
|
15 |
0 |
if @_ |
|
37
|
9 |
6 |
ref $_[0] ? : |
|
43
|
2 |
27 |
unless defined $args{$mandatory} |
|
49
|
11 |
2 |
defined $args{'filename'} ? : |
|
53
|
2 |
11 |
if ($args{'fh'}) { } |
|
57
|
1 |
10 |
unless exists $args{'filename'} |
|
59
|
0 |
10 |
unless CORE::open my $fh, '<:raw', $args{'filename'} |
|
92
|
150 |
4 |
if $self->read($buf, 1) |
|
113
|
171 |
2 |
if (@_) |
|
116
|
0 |
171 |
unless $newpos =~ /\A\d+\z/msx |
|
118
|
0 |
171 |
if $newpos > $$self{'length'} |
|
128
|
0 |
3 |
unless defined $whence |
|
129
|
3 |
0 |
if ($whence == 0) { } |
|
|
0 |
0 |
elsif ($whence == 1) { } |
|
|
0 |
0 |
elsif ($whence == 2) { } |
|
152
|
0 |
7 |
unless defined(my $nread = $self->read($buf, $count)) |
|
159
|
1 |
7 |
if $$self{'position'} >= $$self{'length'} |
|
161
|
1 |
6 |
unless defined $IO::Slice::INPUT_RECORD_SEPARATOR |
|
165
|
4 |
2 |
unless (length $IO::Slice::INPUT_RECORD_SEPARATOR) |
|
168
|
0 |
4 |
if $idx < 0 |
|
180
|
0 |
2 |
if $idx < 0 |
|
193
|
0 |
6 |
unless ($chunk) |
|
197
|
0 |
6 |
defined $buffer ? : |
|
198
|
6 |
0 |
if (my($nreturn, $ndelete) = &$condition($buffer)) |
|
209
|
0 |
1 |
unless wantarray |
|
218
|
1 |
3 |
if wantarray |
|
230
|
4 |
159 |
if $position >= $data_length |
|
233
|
0 |
159 |
unless CORE::seek $fh, $$self{'offset'} + $position, 0 |
|
237
|
3 |
156 |
if $length > $available |
|
239
|
0 |
159 |
unless defined(my $nread = CORE::read($fh, $$bufref, $length, @_)) |