Branch Coverage

blib/lib/MIDI/Event.pm
Criterion Covered Total %
branch 114 252 45.2


line true false branch
243 0 0 ref $_[0] ? :
252 0 0 unless ref $events_r
294 17 0 ref $_[1] eq 'HASH' ? :
296 0 17 unless (ref $data_r eq "SCALAR")
302 0 17 if (defined $options_r->{'exclude'}) { }
303 0 0 if (ref $options_r->{'exclude'} eq 'ARRAY') { }
310 0 0 if $options_r->{'exclude'}
316 0 17 if (defined $options_r->{'include'})
317 0 0 if (ref $options_r->{'include'} eq 'ARRAY') { }
325 0 0 if $options_r->{'include'}
330 0 17 if $MIDI::Event::Debug
334 0 17 if (defined $options_r->{'event_callback'})
335 0 0 if (ref $options_r->{'event_callback'} eq 'CODE') { }
342 0 17 if (defined $options_r->{'exclusive_event_callback'})
343 0 0 if (ref $options_r->{'exclusive_event_callback'} eq 'CODE') { }
353 0 17 if ($MIDI::Event::Debug)
354 0 0 if ($MIDI::Event::Debug == 1) { }
444 1702 89 if ($first_byte < 240) { }
89 0 elsif ($first_byte == 255) { }
0 0 elsif ($first_byte == 240 or $first_byte == 247) { }
0 0 elsif ($first_byte == 242) { }
0 0 elsif ($first_byte == 243) { }
0 0 elsif ($first_byte == 246) { }
0 0 elsif ($first_byte > 240) { }
445 932 770 if ($first_byte >= 128) { }
446 0 932 if $MIDI::Event::Debug > 2
451 0 770 if ($event_code == -1)
452 0 0 if $MIDI::Event::Debug
461 12 1690 if ($command == 192 or $command == 208) { }
476 485 1217 if ($command == 128) { }
1193 24 elsif ($command == 144) { }
0 24 elsif ($command == 160) { }
12 12 elsif ($command == 176) { }
12 0 elsif ($command == 192) { }
0 0 elsif ($command == 208) { }
0 0 elsif ($command == 224) { }
477 0 485 if $exclude{'note_off'}
486 0 1193 if $exclude{'note_on'}
494 0 0 if $exclude{'key_after_touch'}
502 0 12 if $exclude{'control_change'}
510 0 12 if $exclude{'patch_change'}
518 0 0 if $exclude{'channel_after_touch'}
526 0 0 if $exclude{'pitch_wheel_change'}
544 0 89 if ($command == 0) { }
33 56 elsif ($command == 1) { }
2 54 elsif ($command == 2) { }
12 42 elsif ($command == 3) { }
6 36 elsif ($command == 4) { }
0 36 elsif ($command == 5) { }
0 36 elsif ($command == 6) { }
0 36 elsif ($command == 7) { }
0 36 elsif ($command == 8) { }
0 36 elsif ($command == 9) { }
0 36 elsif ($command == 10) { }
0 36 elsif ($command == 11) { }
0 36 elsif ($command == 12) { }
0 36 elsif ($command == 13) { }
0 36 elsif ($command == 14) { }
0 36 elsif ($command == 15) { }
17 19 elsif ($command == 47) { }
10 9 elsif ($command == 81) { }
2 7 elsif ($command == 84) { }
3 4 elsif ($command == 88) { }
2 2 elsif ($command == 89) { }
0 2 elsif ($command == 127) { }
734 0 0 $first_byte == 240 ? :
840 17 1774 if (@E and $E[0] eq "end_track")
843 17 0 unless (defined $options_r->{'no_eot_magic'} and $options_r->{'no_eot_magic'})
845 10 7 if ($E[1] > 0) { }
856 0 1791 if (@E and exists $exclude{$E[0]}) { }
857 0 0 if ($MIDI::Event::Debug)
862 0 1791 if ($MIDI::Event::Debug)
866 1784 7 if (@E)
867 0 1784 if ($exclusive_event_callback) { }
870 0 1784 if $event_callback
918 17 1774 if $eot
941 2 0 ref $_[1] eq 'HASH' ? :
945 0 2 unless ref $events_r
952 0 2 if ref $options_r->{'unknown_callback'} eq "CODE"
954 2 0 unless ($options_r->{'never_add_eot'})
956 2 0 if (@events) { }
958 2 0 unless ($last->[0] eq "end_track")
959 0 2 if ($last->[0] eq 'text_event' and length $last->[2] == 0) { }
961 0 0 if ($options_r->{'no_eot_magic'}) { }
990 0 271 unless ref $event_r
993 0 271 unless @E
996 0 271 unless length $event
1002 265 6 if ($event eq 'note_on' or $event eq 'note_off' or $event eq 'control_change' or $event eq 'key_after_touch' or $event eq 'patch_change' or $event eq 'channel_after_touch' or $event eq 'pitch_wheel_change') { }
1015 132 133 if ($event eq 'note_off') { }
132 1 elsif ($event eq 'note_on') { }
0 1 elsif ($event eq 'key_after_touch') { }
0 1 elsif ($event eq 'control_change') { }
1 0 elsif ($event eq 'patch_change') { }
0 0 elsif ($event eq 'channel_after_touch') { }
0 0 elsif ($event eq 'pitch_wheel_change') { }
1046 0 265 $maybe_running_status && $status == $last_status ? :
1062 0 6 if ($event eq 'raw_meta_event') { }
2 4 elsif ($event eq 'text_event') { }
0 4 elsif ($event eq 'copyright_text_event') { }
0 4 elsif ($event eq 'track_name') { }
0 4 elsif ($event eq 'instrument_name') { }
0 4 elsif ($event eq 'lyric') { }
0 4 elsif ($event eq 'marker') { }
0 4 elsif ($event eq 'cue_point') { }
0 4 elsif ($event eq 'text_event_08') { }
0 4 elsif ($event eq 'text_event_09') { }
0 4 elsif ($event eq 'text_event_0a') { }
0 4 elsif ($event eq 'text_event_0b') { }
0 4 elsif ($event eq 'text_event_0c') { }
0 4 elsif ($event eq 'text_event_0d') { }
0 4 elsif ($event eq 'text_event_0e') { }
0 4 elsif ($event eq 'text_event_0f') { }
2 2 elsif ($event eq 'end_track') { }
2 0 elsif ($event eq 'set_tempo') { }
0 0 elsif ($event eq 'smpte_offset') { }
0 0 elsif ($event eq 'time_signature') { }
0 0 elsif ($event eq 'key_signature') { }
0 0 elsif ($event eq 'sequencer_specific') { }
0 0 elsif ($event eq 'sysex_f0') { }
0 0 elsif ($event eq 'sysex_f7') { }
0 0 elsif ($event eq 'song_position') { }
0 0 elsif ($event eq 'song_select') { }
0 0 elsif ($event eq 'tune_request') { }
0 0 elsif ($event eq 'raw_data') { }
1133 0 0 if ($unknown_callback) { }
1144 6 0 if length $event_data