Branch Coverage

blib/lib/Stream/FileInputStream.pm
Criterion Covered Total %
branch 7 20 35.0


line true false branch
40 0 2 unless @_ == 2
45 0 2 if (ref $arg) { }
47 0 0 if (ref $arg eq 'FileHandle') { }
59 0 2 unless defined $$self{'fh'}
72 0 34 unless @_ == 2
79 0 34 unless CORE::read $fh, $retval, $count
85 0 1 unless @_ == 3
96 0 0 unless @_ == 2
107 0 1 unless @_ == 1
122 0 0 unless @_ == 1