| line |
true |
false |
branch |
|
294
|
0 |
16 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
300
|
0 |
16 |
unless ($note_val =~ /^\d+$/) |
|
328
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
346
|
0 |
1 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
625
|
0 |
17 |
if $MIDI::Simple::Debug > 3 |
|
626
|
0 |
17 |
unless ref $it |
|
628
|
0 |
27 |
unless length $arg |
|
630
|
0 |
27 |
if ($arg =~ /^d(\d+)$/s) { } |
|
|
0 |
27 |
elsif ($arg =~ /^[vV](\d+)$/s) { } |
|
|
0 |
27 |
elsif ($arg eq 'rest') { } |
|
|
1 |
26 |
elsif ($arg =~ /^c(\d+)$/s) { } |
|
|
1 |
25 |
elsif ($arg =~ /^o(\d+)$/s) { } |
|
|
0 |
25 |
elsif ($arg =~ /^n?(\d+)$/s) { } |
|
|
1 |
24 |
elsif (exists $MIDI::Simple::Volume{$arg}) { } |
|
|
8 |
16 |
elsif (exists $MIDI::Simple::Length{$arg}) { } |
|
|
0 |
16 |
elsif ($arg =~ /^o_d(\d+)$/s) { } |
|
|
0 |
16 |
elsif ($arg =~ /^o_u(\d+)$/s) { } |
|
|
16 |
0 |
elsif ($arg =~ /^([A-Za-z\x80-\xFF]+)((?:_[du])?\d+)?$/s and exists $MIDI::Simple::Note{$1}) { } |
|
633
|
0 |
0 |
if $1 > 127 |
|
638
|
0 |
1 |
if $1 > 15 |
|
641
|
0 |
1 |
if $1 > 10 |
|
646
|
0 |
0 |
if $1 > 127 |
|
661
|
0 |
0 |
if ${$$it{'Octave'};} < 0 |
|
662
|
0 |
0 |
if ${$$it{'Octave'};} > 10 |
|
666
|
0 |
0 |
if ${$$it{'Octave'};} < 0 |
|
667
|
0 |
0 |
if ${$$it{'Octave'};} > 10 |
|
676
|
0 |
16 |
if $MIDI::Simple::Debug |
|
679
|
13 |
3 |
if (not defined $o_spec && length $o_spec) { } |
|
|
0 |
3 |
elsif ($o_spec =~ /^(\d+)$/s) { } |
|
|
3 |
0 |
elsif ($o_spec =~ /^_d(\d+)$/s) { } |
|
|
0 |
0 |
elsif ($o_spec =~ /^_u(\d+)$/s) { } |
|
684
|
0 |
0 |
if $1 > 10 |
|
687
|
0 |
3 |
if $octave < 0 |
|
690
|
0 |
0 |
if $octave > 10 |
|
705
|
0 |
0 |
if length $arg |
|
708
|
16 |
1 |
if @new_notes |
|
717
|
0 |
1 |
if $Debug |
|
741
|
0 |
1 |
if (defined $p1 and $p1 eq 'MIDI::Simple' || ref $p1 eq 'MIDI::Simple') { } |
|
745
|
0 |
0 |
if $MIDI::Simple::Debug |
|
750
|
0 |
1 |
if $MIDI::Simple::Debug |
|
751
|
0 |
1 |
if (ref $MIDI::Simple::package{$cpackage}) { } |
|
752
|
0 |
0 |
if $MIDI::Simple::Debug |
|
756
|
0 |
1 |
if $MIDI::Simple::Debug |
|
766
|
0 |
1 |
if $MIDI::Simple::Debug |
|
856
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
859
|
0 |
0 |
if (@_) { } |
|
860
|
0 |
0 |
if ($am_method) { } |
|
872
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
874
|
0 |
0 |
if @_ |
|
879
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
881
|
0 |
0 |
if @_ |
|
886
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
888
|
0 |
0 |
if @_ |
|
893
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
895
|
0 |
0 |
if @_ |
|
900
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
902
|
0 |
0 |
if @_ |
|
907
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
909
|
0 |
0 |
if @_ |
|
914
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
916
|
0 |
0 |
if @_ |
|
921
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
923
|
0 |
0 |
if @_ |
|
931
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
937
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
943
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
949
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
955
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
961
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
967
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
973
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
979
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1127
|
0 |
3 |
if (ref $p[0] eq 'MIDI::Simple') { } |
|
1221
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1244
|
0 |
1 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1250
|
0 |
1 |
unless ref $out or length $out |
|
1252
|
0 |
1 |
unless $ticks |
|
1254
|
0 |
1 |
unless @$score_r |
|
1258
|
0 |
1 |
if (ref $out) { } |
|
1311
|
0 |
0 |
if $am_cons |
|
1316
|
0 |
0 |
unless ref $in or length $in |
|
1319
|
0 |
0 |
ref $in ? : |
|
1323
|
0 |
0 |
if (@eventful_tracks == 0) { } |
|
|
0 |
0 |
elsif (@eventful_tracks > 1) { } |
|
1339
|
0 |
0 |
if ($am_cons) { } |
|
1345
|
0 |
0 |
if (ref $MIDI::Simple::package{$cpackage}) { } |
|
1346
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1350
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1414
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1420
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1422
|
0 |
0 |
unless @subs |
|
1428
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1434
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1435
|
0 |
0 |
if ${$$it{'Time'};} > $max_time |
|
1437
|
0 |
0 |
if $MIDI::Simple::Debug |
|
1456
|
1 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1461
|
0 |
1 |
unless @$score_r |
|
1463
|
0 |
1 |
unless @$events_r |
|
1493
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1530
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |
|
1535
|
0 |
0 |
unless ref $interval_r |
|
1542
|
0 |
0 |
unless (@status) |
|
1549
|
0 |
0 |
if ($a_flag) { } |
|
1550
|
0 |
0 |
if ($note =~ /^\d+$/s) { } |
|
|
0 |
0 |
elsif ($note =~ /^n\d+$/s) { } |
|
1659
|
0 |
0 |
unless @notes |
|
1666
|
0 |
0 |
if (@status) { } |
|
1673
|
0 |
0 |
if ($orig_a_flag) { } |
|
1675
|
0 |
0 |
if ($orig_note =~ /^\d+$/s) { } |
|
|
0 |
0 |
elsif ($orig_note =~ /^n\d+$/s) { } |
|
1735
|
0 |
0 |
if ($in < 0) { } |
|
|
0 |
0 |
elsif ($in < 12) { } |
|
1775
|
0 |
0 |
unless length $in |
|
1776
|
0 |
0 |
if @ret |
|
1777
|
0 |
0 |
if @ret |
|
1833
|
0 |
0 |
unless length $in |
|
1835
|
0 |
0 |
if ($in =~ /^([A-Za-z]+)$/s and exists $MIDI::Simple::Note{$1}) { } |
|
|
0 |
0 |
elsif ($in =~ /^([A-Za-z]+)_([du])(\d+)$/s and exists $MIDI::Simple::Note{$1}) { } |
|
1844
|
0 |
0 |
if $2 eq 'd' |
|
1848
|
0 |
0 |
unless ($note_number == -1) |
|
1865
|
0 |
0 |
unless length $in |
|
1866
|
0 |
0 |
if ($in =~ /^n?(\d+)$/s) { } |
|
|
0 |
0 |
elsif ($in =~ /^([A-Za-z]+)(\d+)/s) { } |
|
1869
|
0 |
0 |
if exists $MIDI::Simple::Note{$1} |
|
1872
|
0 |
0 |
if $note_number >= 0 and $note_number < 128 |
|
1905
|
0 |
0 |
ref $_[0] eq 'MIDI::Simple' ? : |