| line |
true |
false |
branch |
|
215
|
0 |
65 |
unless (defined $sref)
|
|
216
|
0 |
65 |
unless ref $sref eq 'SCALAR'
|
|
292
|
0 |
0 |
if $self->eof
|
|
311
|
0 |
0 |
if $self->eof
|
|
322
|
0 |
0 |
if (not defined $/) { }
|
|
|
0 |
0 |
elsif ($/ eq "\n") { }
|
|
|
0 |
0 |
elsif (ref $/) { }
|
|
333
|
0 |
0 |
if ord substr($$sr, $i, 1) == 10
|
|
338
|
0 |
0 |
if ($i < $len) { }
|
|
356
|
0 |
0 |
if *$self->{'Pos'} > $len
|
|
368
|
0 |
0 |
unless length $/
|
|
372
|
0 |
0 |
length $/ ? :
|
|
|
0 |
0 |
if (length $/ ? $$sr =~ m[\Q$/\E]g : $$sr =~ /\n\n/g) { }
|
|
399
|
0 |
0 |
unless wantarray
|
|
420
|
0 |
1 |
defined $\ ? :
|
|
456
|
0 |
4 |
$off ? :
|
|
581
|
0 |
0 |
if ($whence == 0) { }
|
|
|
0 |
0 |
elsif ($whence == 1) { }
|
|
|
0 |
0 |
elsif ($whence == 2) { }
|
|
587
|
0 |
0 |
if (*$self->{'Pos'} < 0)
|
|
588
|
0 |
0 |
if (*$self->{'Pos'} > $eofpos)
|
|
670
|
65 |
1 |
defined $_[1] && UNIVERSAL::isa($_[1], 'IO::Scalar') ? :
|
|
678
|
0 |
0 |
wantarray ? :
|