Branch Coverage

blib/lib/File/Binary.pm
Criterion Covered Total %
branch 26 44 59.0


line true false branch
122 72 217 if (ref($file) =~ /^IO::/ and $file->isa('IO::Handle')) { }
127 72 145 if ($file =~ /^>/) { }
0 145 elsif ($file =~ /^\+>/) { }
133 289 0 if $fh->can('binmode')
141 217 72 UNIVERSAL::isa($fh, 'IO::Seekable') ? :
167 0 10 unless ($$self{'_is_seekable'})
168 0 0 if $File::Binary::DEBUG
172 10 0 if defined $seek
191 0 10 unless ($$self{'_is_seekable'})
192 0 0 if $File::Binary::DEBUG
232 289 289 if $endian == $File::Binary::NATIVE_ENDIAN
234 144 434 if ($endian == $File::Binary::BIG_ENDIAN) { }
250 2904 0 if ($$self{'_writeable'}) { }
265 2904 0 if $len <= 0
292 0 2894 if $bytes < 1
293 0 2894 if $$self{'_writeable'} == 1
295 2894 0 if $$self{'_flush'}
315 0 958 unless $$self{'_writeable'}
406 270 270 if $num >= 32768
443 548 528 if $num >= 2147483648
486 289 0 if (1234 == $bo or 12345678 == $bo) { }
0 0 elsif (4321 == $bo or 87654321 == $bo) { }