Branch Coverage

blib/lib/Data/BiaB.pm
Criterion Covered Total %
branch 0 62 0.0


line true false branch
63 0 0 unless open my $fh, "<:raw", $file
81 0 0 if $self->{'debug'} >= 1
85 0 0 if $self->{'debug'} >= 2
95 0 0 if $self->{'debug'} > 2
118 0 0 if ($val) { }
121 0 0 if $self->{'debug'} > 2
128 0 0 unless $val
132 0 0 if ($i > 256)
145 0 0 if ($val) { }
149 0 0 if $self->{'debug'} > 1
156 0 0 unless $val
161 0 0 if ($i > 1021)
174 0 0 if ($val) { }
178 0 0 if $self->{'debug'} > 1
185 0 0 unless $val
191 0 0 if ($i > 1022)
207 0 0 if (substr($data, $inx, $inx + 2560) =~ /^(.*?\x{42})((?:\x{5}.|\x{6}..|\x{7}...|\x{8}....|\x{9}.....|\x{a}......|\x{b}.......|\x{c}........)\.STY)/)
218 0 0 if (substr($data, $inx, $inx + 256) =~ /^(.*?)\x{00}\x{ff}\x{00}\x{0d}(..)/)
228 0 0 if $self->{'debug'}
229 0 0 if (substr($data, $inx) =~ /^(.*?)\x{a0}\x{b0}(\x{c0}|\x{c1})/s) { }
238 0 0 if (@m == 0 and $pitch > 100 || $velo > 127 || $chan > 15 || $dur > 7200 || $onset > 7200)
248 0 0 if (@m == $self->{'numnotes'} - 1)
251 0 0 if ($inx >= length($data) - 12)
260 0 0 if (@m != $self->{'numnotes'})
267 0 0 if ($inx < length $data)
360 0 0 if ($nr > 18)
362 0 0 if ($root =~ /b/) { }
378 0 0 unless @cn == @ct
382 0 0 if (defined $cn[$i]) { }
383 0 0 if (defined $ct[$i]) { }
394 0 0 if (defined $ct[$i]) { }