Branch Coverage

blib/lib/MIDI/Tweaks.pm
Criterion Covered Total %
branch 116 168 69.0


line true false branch
132 4383 145 if $$e[0] eq 'note_on'
145 2320 17 unless $$e[0] eq 'note_off'
203 23 0 $_[0] ? :
205 23 0 unless defined $require_sanity
210 23 0 if $require_sanity
258 23 1 if ($$args{'strict'})
269 1341 4293 unless MIDI::Tweaks::is_channel_event($_)
270 4260 33 if (defined $chan) { }
271 2 4258 if ($$_[2] != $chan)
281 1 32 if ($channel_seen[$chan])
291 2095 2198 if (MIDI::Tweaks::is_note_on($_)) { }
2095 103 elsif (MIDI::Tweaks::is_note_off($_)) { }
292 1 2094 if (defined $$noteon[$$_[3]]) { }
302 2093 2 if (defined $$noteon[$$_[3]]) { }
312 2448 1 unless defined $$noteon[$i]
319 2 22 if ($fail)
320 0 2 if $strict eq 'warn'
384 0 8 if $track->channel == 10
416 23 0 ref $_[1] eq 'HASH' ? :
418 0 23 if ($$options_r{'flat'})
439 23 0 if ($$options_r{'dump_tracks'}) { }
444 56 0 if (ref $track) { }
479 0 0 if $$e[0] eq 'track_name'
497 16 4 unless is_channel_event($e)
517 0 51 if ($$self{'_tweaky_abstime'})
518 0 0 unless $force
546 0 65 unless ($$self{'_tweaky_abstime'})
547 0 0 unless $force
553 0 7128 if $$e[1] < $time
579 1 698 if $$e[1] < $time
613 16 0 if ref $_[0] eq 'HASH'
616 0 16 unless ref $mapper eq 'CODE'
619 1 15 if delete $$opts{'copy'}
645 0 8 unless ref $args eq 'HASH'
654 8 0 if ($$args{'int'})
658 72 64 if (is_note_event($_[0]))
660 0 72 unless $_[0][3] >= 0 and $_[0][3] <= 127
664 4 60 if ($_[0][0] eq 'key_signature')
669 0 4 if $f >= 6
670 0 4 if $f < -6
681 0 8 unless $mapper_func
711 0 3 unless ref $args eq 'HASH'
717 2 1 if ($$args{'value'}) { }
1 0 elsif ($$args{'ratio'}) { }
719 0 2 unless $value >= 0 and $value <= 127
723 40 18 unless is_note_on($_[0])
730 20 9 unless is_note_on($_[0])
732 0 9 if $_[0][4] > 127
736 0 3 unless $mapper_func
761 0 4 unless ref $args eq 'HASH'
767 2 2 if ($$args{'value'}) { }
2 0 elsif ($$args{'ratio'}) { }
771 33 3 unless $_[0][0] eq 'set_tempo'
778 33 3 unless $_[0][0] eq 'set_tempo'
783 0 4 unless $mapper_func
806 0 1 unless ref $args eq 'HASH'
812 0 1 if ($$args{'value'}) { }
1 0 elsif ($$args{'ratio'}) { }
814 0 0 unless $value >= 0 and $value <= 127
819 0 0 unless $_[0][0] eq 'control_change' and $_[0][3] == 7
828 29 1 unless $_[0][0] eq 'control_change' and $_[0][3] == 7
831 0 1 if $_[0][4] > 127
835 0 1 unless $mapper_func
866 0 1 unless ref $args eq 'HASH'
872 1 0 if ($$args{'pitch'})
874 0 1 unless $split >= 0 and $split <= 127
878 0 1 if %$args
881 0 1 unless $$track{'_tweaky_abstime'}
888 11 18 unless (is_note_event($_))
895 12 6 if ($$_[3] >= $split) { }
942 0 3 unless $$track{'_tweaky_abstime'}
955 24 70 if $$this_event[0] =~ /^lyric$/
958 0 70 unless (@hi == @lo)
963 18 34 unless (is_note_event($this_event) and @events and &$eqtimes($this_event, $next_event))
971 20 14 if (is_note_on($this_event) and is_note_on($next_event) or is_note_off($this_event) and is_note_off($next_event)) { }
980 12 8 if ($$this_event[3] > $$next_event[3]) { }
1042 0 3 unless $$track{'_tweaky_abstime'}
1056 27 77 if $$this_event[0] =~ /^lyric$/
1058 0 77 unless (@hi == @md and @md == @lo)
1066 60 17 if (is_note_event($this_event)) { }
1068 11 49 if (is_note_on($this_event) and @events and is_note_on($next_event) and &$eqtimes($this_event, $next_event)) { }
11 38 elsif (is_note_off($this_event) and @events and is_note_off($next_event) and &$eqtimes($this_event, $next_event)) { }
1071 3 8 if (is_note_on($events[1]) and &$eqtimes($this_event, $events[1])) { }
1101 3 8 if (is_note_off($events[1]) and &$eqtimes($this_event, $events[1])) { }