| line |
true |
false |
branch |
|
55
|
1 |
14 |
unless &looks_like_number($number) |
|
60
|
2 |
12 |
$params{'ignore_octave'} ? : |
|
67
|
2 |
33 |
if &looks_like_number($name) |
|
72
|
33 |
5 |
if $name =~ /\G \z /cgx or defined $octave and defined $note and defined $chrome |
|
76
|
0 |
96 |
if (not defined $octave and $name =~ / \G ( [,]{1,10} ) /cgx) |
|
84
|
32 |
64 |
if (not defined $note and $name =~ / \G (?: (?[A-G])(?\k{1,10}) | (?[A-Ga-g])) /cgx) |
|
90
|
3 |
29 |
if (defined $+{'multi'} and not defined $octave) |
|
96
|
48 |
16 |
if (defined $note and not defined $octave) |
|
99
|
15 |
33 |
if ($name =~ / \G ( [+-]?[0-9]{1,2} ) /cgx) |
|
104
|
10 |
23 |
if ($name =~ / \G ( [,']{1,10} ) /cgx) |
|
116
|
27 |
12 |
if (defined $note and not defined $chrome) |
|
118
|
9 |
18 |
if (@howmany = $name =~ / \G (ess|es|flat|[bf]) /cgx) { } |
|
|
10 |
8 |
elsif (@howmany = $name =~ / \G (iss|is|sharp|[#dks]) /cgx) { } |
|
128
|
20 |
0 |
if ($name =~ / \G (?: \s+ | . ) /cgsx) |
|
132
|
1 |
32 |
unless defined $note |
|
136
|
15 |
17 |
if (defined $octave and &looks_like_number($octave)) { } |
|
144
|
3 |
14 |
$octave =~ /,/ ? : |
|
156
|
19 |
13 |
if defined $chrome |