| line |
true |
false |
branch |
|
85
|
12 |
0 |
defined $_[0] && ref $_[0] eq 'HASH' ? : |
|
89
|
0 |
12 |
if $MIDI::Opus::Debug |
|
91
|
0 |
12 |
if $options_r->{'no_opus_init'} |
|
94
|
10 |
2 |
if (exists $options_r->{'from_file'} and defined $options_r->{'from_file'} and length $options_r->{'from_file'}) { } |
|
|
0 |
2 |
elsif (exists $options_r->{'from_handle'} and defined $options_r->{'from_handle'} and length $options_r->{'from_handle'}) { } |
|
132
|
0 |
0 |
if $new->{'tracks'} |
|
140
|
12 |
0 |
ref $_[0] eq 'HASH' ? : |
|
142
|
0 |
12 |
if $MIDI::Opus::Debug |
|
143
|
0 |
12 |
if ($MIDI::Opus::Debug) |
|
144
|
0 |
0 |
if (%$options_r) { } |
|
151
|
2 |
10 |
defined $options_r->{'format'} ? : |
|
153
|
2 |
10 |
defined $options_r->{'ticks'} ? : |
|
157
|
0 |
12 |
if exists $options_r->{'tracks_r'} and not exists $options_r->{'tracks'} |
|
166
|
2 |
10 |
defined $options_r->{'tracks'} && ref $options_r->{'tracks'} eq 'ARRAY' ? : |
|
187
|
1 |
17 |
if @_ |
|
215
|
1 |
24 |
if ref $_[0] |
|
228
|
2 |
8 |
if defined $_[0] |
|
241
|
3 |
10 |
if defined $_[0] |
|
257
|
1 |
0 |
ref $_[1] eq 'HASH' ? : |
|
310
|
1 |
0 |
ref $_[1] eq 'HASH' ? : |
|
312
|
0 |
1 |
if ($grid < 1) |
|
313
|
0 |
1 |
if $grid eq 1 |
|
342
|
0 |
0 |
ref $_[1] eq 'HASH' ? : |
|
344
|
0 |
0 |
if ($options_r->{'flat'}) |
|
359
|
0 |
0 |
if ($options_r->{'dump_tracks'}) { } |
|
364
|
0 |
0 |
if (ref $track) { } |
|
396
|
0 |
2 |
ref $_[2] eq 'HASH' ? : |
|
398
|
0 |
2 |
unless length $destination |
|
399
|
0 |
2 |
unless (open OUT_MIDI, ">$destination") |
|
403
|
0 |
2 |
unless close OUT_MIDI |
|
418
|
10 |
0 |
ref $_[2] eq 'HASH' ? : |
|
420
|
0 |
10 |
unless length $source |
|
421
|
0 |
10 |
unless (open IN_MIDI, "<$source") |
|
425
|
0 |
10 |
unless $size |
|
429
|
0 |
10 |
unless close IN_MIDI |
|
451
|
2 |
0 |
ref $_[2] eq 'HASH' ? : |
|
456
|
0 |
2 |
if $tracks == 0 |
|
459
|
2 |
0 |
if (defined $opus->{'format'}) { } |
|
462
|
0 |
0 |
if ($tracks == 0) { } |
|
|
0 |
0 |
elsif ($tracks == 1) { } |
|
471
|
2 |
0 |
defined $opus->{'ticks'} ? : |
|
503
|
10 |
0 |
ref $_[2] eq 'HASH' ? : |
|
505
|
10 |
0 |
if defined $_[3] |
|
513
|
0 |
10 |
if exists $options_r->{'track_size'} |
|
515
|
0 |
10 |
unless read $fh, $in, 14 |
|
519
|
10 |
0 |
if (defined $file_size_left) |
|
525
|
0 |
10 |
unless $id eq "MThd" |
|
527
|
0 |
10 |
unless $length == 6 |
|
533
|
0 |
10 |
if $MIDI::Opus::Debug |
|
539
|
0 |
17 |
if $MIDI::Opus::Debug |
|
541
|
17 |
0 |
if (defined $file_size_left) |
|
543
|
0 |
17 |
if $file_size_left < 0 |
|
548
|
0 |
17 |
unless read $fh, $header, 8 |
|
552
|
0 |
17 |
if (defined $track_size_limit and $track_size_limit > $length) |
|
557
|
17 |
0 |
if (defined $file_size_left) |
|
559
|
0 |
17 |
if $file_size_left < 0 |
|
566
|
17 |
0 |
if ($length == length $data) { } |
|
580
|
0 |
10 |
unless $tracks_expected == $track_count |
|
583
|
0 |
10 |
if $track_count == 0 |
|
643
|
0 |
0 |
ref $_[1] ? : |
|
652
|
0 |
0 |
if @$score_r |
|
653
|
0 |
0 |
if $track_time > $opus_time |
|
658
|
0 |
0 |
unless $opus_time |
|
671
|
0 |
0 |
length $options_r->{'bg_color'} ? : |
|
674
|
0 |
0 |
unless @MIDI::Opus::Channel_colors |
|
681
|
0 |
0 |
ref $options_r->{'channel_colors'} ? : |
|
687
|
0 |
0 |
unless $event_r->[0] eq "note" |
|
703
|
0 |
0 |
if $GD_used |
|
704
|
0 |
0 |
if $@ |