| line |
true |
false |
branch |
|
213
|
2 |
10 |
unless (defined $sref) |
|
214
|
0 |
12 |
unless ref $sref eq 'SCALAR' |
|
301
|
0 |
3 |
if $self->eof |
|
320
|
7 |
42 |
if $self->eof |
|
331
|
2 |
40 |
if (not defined $/) { } |
|
|
35 |
5 |
elsif ($/ eq "\n") { } |
|
|
0 |
5 |
elsif (ref $/) { } |
|
342
|
34 |
763 |
if ord substr($$sr, $i, 1) == 10 |
|
347
|
34 |
1 |
if ($i < $len) { } |
|
365
|
0 |
0 |
if *$self->{'Pos'} > $len |
|
377
|
3 |
2 |
unless length $/ |
|
381
|
2 |
3 |
length $/ ? : |
|
|
4 |
1 |
if (length $/ ? $$sr =~ m[\Q$/\E]g : $$sr =~ /\n\n/g) { } |
|
408
|
0 |
3 |
unless wantarray |
|
429
|
0 |
14 |
defined $\ ? : |
|
465
|
0 |
6 |
$off ? : |
|
590
|
10 |
2 |
if ($whence == 0) { } |
|
|
1 |
1 |
elsif ($whence == 1) { } |
|
|
1 |
0 |
elsif ($whence == 2) { } |
|
596
|
0 |
12 |
if (*$self->{'Pos'} < 0) |
|
597
|
0 |
12 |
if (*$self->{'Pos'} > $eofpos) |
|
679
|
12 |
2 |
defined $_[1] && UNIVERSAL::isa($_[1], 'IO::Scalar') ? : |
|
687
|
2 |
7 |
wantarray ? : |