| line |
true |
false |
branch |
|
215
|
0 |
16 |
unless (defined $sref) |
|
216
|
0 |
16 |
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 |
58 |
defined $\ ? : |
|
456
|
0 |
0 |
$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
|
16 |
16 |
defined $_[1] && UNIVERSAL::isa($_[1], 'IO::Scalar') ? : |
|
678
|
0 |
0 |
wantarray ? : |