Branch Coverage

blib/lib/Music/Gestalt.pm
Criterion Covered Total %
branch 101 150 67.3


line true false branch
55 132 4 if ref $params{'score'} eq 'ARRAY'
77 0 1230 unless $$_[0] eq 'note'
80 1138 92 if not defined $max_time or $$_[1] + $$_[2] > $max_time
82 285 945 if not defined $min_pitch or $$_[4] < $min_pitch
84 319 911 if not defined $max_pitch or $$_[4] > $max_pitch
86 259 971 if not defined $min_velocity or $$_[5] < $min_velocity
88 300 930 if not defined $max_velocity or $$_[5] > $max_velocity
93 129 3 defined $min_pitch && defined $max_pitch ? :
96 129 3 defined $min_velocity && defined $max_velocity ? :
101 3 129 if not defined $max_time or $max_time == 0
107 0 1230 unless $$_[0] eq 'note'
108 32 1198 $pitch_extent == 0 ? :
590 640 $velocity_extent == 0 ? :
124 7311 364 $a < $b ? :
130 151 7528 $a > $b ? :
136 3045 1120 unless ref $$self{'automation'}{$param_name} eq 'HASH' and ref $$self{'automation'}{$param_name}{'values'} eq 'ARRAY'
143 1056 64 if ($count == 1)
144 1040 16 if ($am{'mode'} eq 'absolute') { }
159 32 32 if ($am{'mode'} eq 'absolute') { }
172 560 3045 if (ref $$self{'automation'}{'pitch_middle'}{'values'} eq 'ARRAY')
181 0 3605 if ($$self{'pitches_mode'} eq 'row' and ref $$self{'pitches'} eq 'ARRAY')
210 5 20 if (defined $v)
230 6 16 unless defined $$self{'pitch_base'} and defined $$self{'pitch_extent'}
232 5 11 if (defined $v)
250 1 701 unless defined $$self{'pitch_base'} and defined $$self{'pitch_extent'}
252 136 565 if (defined $v)
274 1 8 unless defined $$self{'pitch_base'}
276 3 5 if (defined $value)
282 0 8 unless defined $$self{'pitch_extent'}
295 5 20 if (defined $v)
316 6 16 unless defined $$self{'velocity_base'} and defined $$self{'velocity_extent'}
318 5 11 if (defined $v)
336 1 11 unless defined $$self{'velocity_base'} and defined $$self{'velocity_extent'}
338 6 5 if (defined $v)
361 1 8 unless defined $$self{'velocity_base'}
363 3 5 if (defined $value)
369 0 8 unless defined $$self{'velocity_extent'}
384 0 17 if defined $v
401 4 1 if defined $v
414 4 4 unless ref $$self{'notes'} eq 'ARRAY'
433 11 1 if defined $v
449 0 0 if (defined $pitches and ref $pitches eq 'ARRAY')
455 0 0 if (defined $$self{'pitches'}) { }
468 0 136 if (ref $$self{'pitches'} eq 'ARRAY' and scalar @{$$self{'pitches'};} > 0)
470 0 0 if ($$self{'pitches_mode'} eq 'nearest')
471 0 0 if (scalar @{$$self{'pitches'};} == 1)
482 0 0 if ($diffA < $diffB) { }
486 0 0 if $idx < $#list
499 0 0 if (defined $mode)
517 1 587 if $$self{'density'} == 0
533 7 580 if ($$self{'density'} < 1)
560 2 1 if not defined $pitch_lowest or $_->PitchLowest < $pitch_lowest
562 3 0 if not defined $pitch_highest or $_->PitchHighest > $pitch_highest
565 2 1 if not defined $velocity_lowest or $_->VelocityLowest < $velocity_lowest
568 3 0 if not defined $velocity_highest or $_->VelocityHighest > $velocity_highest
575 0 2 unless defined $pitch_lowest and defined $pitch_highest and defined $velocity_lowest and defined $velocity_highest
591 0 2 $pitch_extent == 0 ? :
597 0 2 $velocity_extent == 0 ? :
614 0 4 $pitch_extent == 0 ? :
0 4 $velocity_extent == 0 ? :
659 0 0 if not defined $pitch_lowest or $_->PitchLowest < $pitch_lowest
661 0 0 if not defined $pitch_highest or $_->PitchHighest > $pitch_highest
664 0 0 if not defined $velocity_lowest or $_->VelocityLowest < $velocity_lowest
667 0 0 if not defined $velocity_highest or $_->VelocityHighest > $velocity_highest
670 0 0 if $_->Duration > $duration
674 0 0 unless defined $pitch_lowest and defined $pitch_highest and defined $velocity_lowest and defined $velocity_highest
690 0 0 $pitch_extent == 0 ? :
696 0 0 $velocity_extent == 0 ? :
715 0 0 $pitch_extent == 0 ? :
0 0 $velocity_extent == 0 ? :
750 0 30 unless ref $$self{'notes'} eq 'ARRAY'
833 134 1 if (scalar @_)
844 6 1 if (scalar @_)
864 134 1 if (scalar @_)
875 6 1 if (scalar @_)