| line |
true |
false |
branch |
|
205
|
0 |
14 |
if ($descending and $mode == 9) |
|
208
|
3 |
11 |
$descending ? : |
|
215
|
0 |
0 |
if s/#// |
|
216
|
0 |
0 |
if s/b// |
|
224
|
5 |
18 |
unless $mode =~ /^[0-9]+$/ |
|
225
|
23 |
0 |
$mode && $mode <= @scales ? : |
|
231
|
0 |
46 |
if $note =~ /^[0-9]+$/ |
|
232
|
46 |
0 |
defined $note2num{uc $note} ? : |
|
257
|
9 |
0 |
unless defined $keypref |
|
261
|
2 |
7 |
if $descending |
|
263
|
1 |
8 |
if not $keypref and $descending and $mode == 12 |
|
266
|
2 |
7 |
if $keypref eq 'b' or $keynote =~ /.b/i |
|
268
|
2 |
7 |
if (@scale > 7) { } |
|
272
|
0 |
7 |
if $keynote =~ /^[0-9]+$/ |
|
281
|
1 |
6 |
if $keynote =~ /b/ |
|
282
|
3 |
4 |
if $keynote =~ /#/ |
|
291
|
6 |
0 |
if ($m > 0) { } |
|
|
0 |
0 |
elsif ($m < 0) { } |
|
295
|
7 |
29 |
if $m > 0 |
|
296
|
4 |
32 |
if $m < 0 |
|
301
|
2 |
7 |
if ($descending) |
|
312
|
5 |
1 |
exists $modes{lc $name} ? : |
|
321
|
1 |
3 |
if ($n2 < $n1 and $n1 - $n2 < 5) |
|
328
|
3 |
19 |
if $last > $n |
|
334
|
1 |
3 |
if $descending |