Branch Coverage

blib/lib/Finnigan/OLE2File.pm
Criterion Covered Total %
branch 16 32 50.0


line true false branch
34 0 1 unless $self->magic eq "\320\317\cQ\340\241\261\cZ\341"
63 1 1 if $block == $UNUSED
102 0 6 unless $nbytes == $bytes_to_read
107 5 1 if ($rec =~ /^\w\0\w\0/) { }
0 1 elsif ($rec =~ /^\0\w\0\w/) { }
1 0 elsif ($rec =~ /^\0{64}/) { }
117 0 0 if (/[A-z]/) { }
172 0 51 unless $stream_size
173 51 0 if $stream_size and $stream_size eq 'big'
174 0 0 if $stream_size and $stream_size eq 'mini'
185 3 0 if ($stream_size eq 'big') { }
191 0 3 unless $nbytes == $bytes_to_read
205 0 6 if ($stream_size eq 'mini') { }
220 0 47 if $SPECIAL{$block}
223 0 47 if $block_set{$block}
230 0 47 unless defined $block