Branch Coverage

lib/IO/ScalarArray.pm
Criterion Covered Total %
branch 36 50 72.0


line true false branch
208 2 10 unless (defined $aref)
209 0 12 unless ref $aref eq 'ARRAY'
294 6 0 $_[0]->read($buf, 1) ? :
318 2 39 if (not defined $/) { }
39 0 elsif ($/ eq "\n") { }
0 0 elsif (ref $/) { }
320 0 2 if $self->eof
340 28 19 if ($self->_eos)
350 32 15 if $3
352 6 1 $line eq '' ? :
379 0 2 unless wantarray
399 0 7 defined $\ ? :
423 0 18 $off ? :
429 12 18 if ($self->_eos)
524 75 13 if *{$_[0];}->{'Str'} < $#{*{$_[0];}->{'AR'};}
525 0 13 if *{$_[0];}->{'Str'} > $#{*{$_[0];}->{'AR'};}
527 13 0 if *{$_[0];}->{'Str'} == $#{*{$_[0];}->{'AR'};}
554 18 4 if ($whence == 0) { }
2 2 elsif ($whence == 1) { }
2 0 elsif ($whence == 2) { }
574 22 22 if (length *$self->{'AR'}[$istr] > $pos) { }
624 0 12 unless defined($str_s = *$self->{'AR'}[$s])
659 0 43 unless ref $pos eq 'ARRAY'
711 12 2 defined $_[1] && UNIVERSAL::isa($_[1], 'IO::ScalarArray') ? :
718 2 14 wantarray ? :