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]) { } |