Branch Coverage

blib/lib/Music/Chord/Namer.pm
Criterion Covered Total %
branch 37 46 80.4


line true false branch
47 0 8 if (@_ > 1) { }
8 0 elsif ($_[0]) { }
59 0 38 unless defined $notevalues{$note}
62 30 8 if (defined $notenumbers[$#notenumbers])
152 8 72 if $$hash{'split'} and $notevalues{$$hash{'split'}} == $notevalues{$$hash{'name'}}
167 239 625 if isset($_)
175 64 8 unless isset(0)
176 23 1 unless isset(3) or isset(4) or unset(16) and set(4)
178 6 0 unless isset(6) or isset(7) or isset(8) or unset(19) and set(7) or unset(18) and set(6)
180 13 0 unless isset(10) or isset(11) or unset(22) and set(10)
198 0 72 if $D = lower_octave_is(0, 3, 6, 9) and unset(0, 3, 6, 9)
199 0 72 if $D = $D || lower_octave_is(0, 3, 6, 10) and unset(0, 3, 6, 10)
200 2 70 if $D = $D || lower_octave_is(0, 3, 6) and unset(0, 3, 6)
202 4 5 unless $D or unset(4) or unset(3) and app('m') or unset(5) and app(' sus') or unset(2) and app(' sus2')
209 13 0 unless unset(21, 17, 14, 10) and app('13') or unset(21, 17, 14, 11) and app('maj13') or unset(17, 14, 10) and app('11') or unset(17, 14, 11) and app('maj11') or unset(14, 10) and app('9') or unset(14, 11) and app('maj9') or unset(10) and app('7') or unset(11) and app('maj7') or unset(9, 14) and app('6/9')
220 6 14 unless $D or unset(7) or unset(6) and app(' b5') or unset(8) and app(' #5')
226 54 18 unless $D or unset(0)
230 62 1666 if unset($_)
233 64 8 if ($$hash{'split'})
237 0 8 if (wantarray) { }
255 756 3578 if ($NOTES{$_[0]}) { }
260 2683 336 unless (isset($_))
274 214 212 if ($notes{$i} and not $NOTES{$i} or $NOTES{$i} and not $notes{$i})