Branch Coverage

blib/lib/Music/LilyPondUtil.pm
Criterion Covered Total %
branch 122 160 76.2


line true false branch
67 3 327 if ($pitch < $$self{'_min_pitch'}) { }
3 324 elsif ($pitch > $$self{'_max_pitch'}) { }
68 1 2 if (exists $$self{'_min_pitch_hook'}) { }
76 1 2 if (exists $$self{'_max_pitch_hook'}) { }
92 56 51 if length $symbol == 0
94 0 51 unless $symbol =~ /^(([,'])\g{-1}*)$/
98 25 26 $2 eq q['] ? :
105 4 1 if (defined $chrome)
106 0 4 unless exists $P2N{$chrome}
127 0 3 unless defined $note
130 3 0 if ($note =~ /^$LY_NOTE_RE/) { }
136 0 3 unless exists $N2P{$real_note}
140 0 3 if $$self{'_ignore_register'}
151 1 1 if defined $state
157 1 2 if defined $state
163 4 1 if (defined $mode)
164 0 4 if $mode ne 'absolute' and $mode ne 'relative'
176 0 11 unless exists $P2N{$$self{'_chrome'}}
188 1 10 if (exists $param{'min_pitch_hook'})
189 0 1 unless ref $param{'min_pitch_hook'} eq 'CODE'
193 1 10 if (exists $param{'max_pitch_hook'})
194 0 1 unless ref $param{'max_pitch_hook'} eq 'CODE'
200 0 11 if $$self{'_mode'} ne 'absolute' and $$self{'_mode'} ne 'relative'
205 0 11 unless ref $$self{'_p2n_hook'} eq 'CODE'
219 0 15 ref $_[0] eq 'ARRAY' ? :
222 0 144 if (not defined $n) { }
3 141 elsif ($n =~ /^(-?\d+)$/) { }
3 138 elsif ($n =~ /^(?i)[rs]/ or $n =~ /\\rest/) { }
137 1 elsif ($n =~ /^$LY_NOTE_RE/) { }
224 0 0 unless $$self{'_strip_rests'}
231 2 1 unless $$self{'_strip_rests'}
245 0 137 unless exists $N2P{$real_note}
248 28 109 if ($$self{'_mode'} ne 'relative') { }
260 3 25 if (abs $delta > $TRITONE)
261 2 1 $delta > 0 ? :
266 2 107 if (not defined $$self{'prev_note'}) { }
273 0 2 if (abs $delta > $TRITONE)
274 0 0 $delta > 0 ? :
283 31 76 if (abs $reg_delta > $TRITONE)
284 17 14 $reg_delta > 0 ? :
289 51 56 if ($reg_offset != 0)
297 10 97 if (abs $delta > $TRITONE)
298 5 5 $delta > 0 ? :
302 109 0 if $$self{'_keep_state'}
312 1 13 if ($$self{'_ignore_register'})
314 4 0 if defined $p
318 14 0 unless $$self{'_sticky_state'}
320 10 4 @pitches > 1 ? :
328 0 36 ref $_[0] eq 'ARRAY' ? :
330 0 330 if (not defined $obj) { }
0 330 elsif (blessed $obj and $obj->can('pitch')) { }
330 0 elsif (looks_like_number $obj) { }
351 2 324 if (defined $range_result)
357 0 324 unless defined $note
360 20 304 if ($$self{'_mode'} ne 'relative') { }
365 290 14 if (defined $$self{'prev_pitch'})
367 197 93 if (abs $delta >= $TRITONE)
368 152 45 if ($delta % $DEG_IN_SCALE == $TRITONE) { }
375 36 116 if ($delta > 0 and $default_dir < 0) { }
36 120 elsif ($delta < 0 and $default_dir > 0) { }
383 24 21 $delta > 0 ? :
390 304 0 if $$self{'_keep_state'}
394 316 8 if ($$self{'_keep_state'}) { }
395 0 316 unless defined $register
403 27 5 unless $$self{'_sticky_state'}
404 17 15 @_ > 1 ? :
412 2 0 if (defined $pitch)
413 2 0 if ($pitch =~ /^$LY_NOTE_RE/) { }
419 0 2 unless exists $N2P{$real_note}
435 1 2 if (defined $pitch)
436 0 1 if (blessed $pitch and $pitch->can('pitch')) { }
0 1 elsif (looks_like_number $pitch) { }
453 0 327 unless defined $number and looks_like_number $number
459 77 250 if ($number < $REL_DEF_REG) { }
77 173 elsif ($number > $REL_DEF_REG) { }
470 0 68 unless defined $symbol
471 0 68 unless $symbol =~ /^(,|')*$/
473 7 61 $symbol =~ /[,]/ ? :
480 1 2 if defined $state
486 1 1 if defined $state