| line |
true |
false |
branch |
|
216
|
2 |
10 |
unless (defined $sref) |
|
217
|
0 |
12 |
unless ref $sref eq 'SCALAR' |
|
293
|
0 |
3 |
if $self->eof |
|
312
|
7 |
42 |
if $self->eof |
|
323
|
2 |
40 |
if (not defined $/) { } |
|
|
35 |
5 |
elsif ($/ eq "\n") { } |
|
|
0 |
5 |
elsif (ref $/) { } |
|
334
|
34 |
763 |
if ord substr($$sr, $i, 1) == 10 |
|
339
|
34 |
1 |
if ($i < $len) { } |
|
357
|
0 |
0 |
if *$self->{'Pos'} > $len |
|
369
|
3 |
2 |
unless length $/ |
|
373
|
2 |
3 |
length $/ ? : |
|
|
4 |
1 |
if (length $/ ? $$sr =~ m[\Q$/\E]g : $$sr =~ /\n\n/g) { } |
|
400
|
0 |
3 |
unless wantarray |
|
421
|
0 |
14 |
defined $\ ? : |
|
457
|
0 |
6 |
$off ? : |
|
582
|
10 |
2 |
if ($whence == 0) { } |
|
|
1 |
1 |
elsif ($whence == 1) { } |
|
|
1 |
0 |
elsif ($whence == 2) { } |
|
588
|
0 |
12 |
if (*$self->{'Pos'} < 0) |
|
589
|
0 |
12 |
if (*$self->{'Pos'} > $eofpos) |
|
671
|
12 |
2 |
defined $_[1] && UNIVERSAL::isa($_[1], 'IO::Scalar') ? : |
|
679
|
2 |
7 |
wantarray ? : |