| line |
true |
false |
branch |
|
216
|
2 |
10 |
unless (defined $sref) |
|
217
|
0 |
12 |
unless ref $sref eq 'SCALAR' |
|
304
|
0 |
3 |
if $self->eof |
|
323
|
7 |
42 |
if $self->eof |
|
334
|
2 |
40 |
if (not defined $/) { } |
|
|
35 |
5 |
elsif ($/ eq "\n") { } |
|
|
0 |
5 |
elsif (ref $/) { } |
|
345
|
34 |
763 |
if ord substr($$sr, $i, 1) == 10 |
|
350
|
34 |
1 |
if ($i < $len) { } |
|
368
|
0 |
0 |
if *$self->{'Pos'} > $len |
|
380
|
3 |
2 |
unless length $/ |
|
384
|
2 |
3 |
length $/ ? : |
|
|
4 |
1 |
if (length $/ ? $$sr =~ m[\Q$/\E]g : $$sr =~ /\n\n/g) { } |
|
411
|
0 |
3 |
unless wantarray |
|
432
|
0 |
14 |
defined $\ ? : |
|
468
|
0 |
6 |
$off ? : |
|
593
|
10 |
2 |
if ($whence == 0) { } |
|
|
1 |
1 |
elsif ($whence == 1) { } |
|
|
1 |
0 |
elsif ($whence == 2) { } |
|
599
|
0 |
12 |
if (*$self->{'Pos'} < 0) |
|
600
|
0 |
12 |
if (*$self->{'Pos'} > $eofpos) |
|
682
|
12 |
2 |
defined $_[1] && UNIVERSAL::isa($_[1], 'IO::Scalar') ? : |
|
690
|
2 |
7 |
wantarray ? : |