| line |
true |
false |
branch |
|
52
|
1 |
12 |
unless looks_like_number $number |
|
61
|
2 |
33 |
if looks_like_number $name |
|
64
|
33 |
5 |
if $name =~ /\G \z /cgx or defined $octave and defined $note and defined $chrome |
|
70
|
0 |
96 |
if (not defined $octave and $name =~ / \G ( [,]{1,10} ) /cgx) |
|
78
|
32 |
64 |
if (not defined $note and $name =~ / \G (?: (?[A-G])(?\k{1,10}) | (?[A-Ga-g])) /cgx) |
|
84
|
3 |
29 |
if (defined $+{'multi'} and not defined $octave) |
|
90
|
48 |
16 |
if (defined $note and not defined $octave) |
|
93
|
15 |
33 |
if ($name =~ / \G ( [+-]?[0-9]{1,2} ) /cgx) |
|
98
|
10 |
23 |
if ($name =~ / \G ( [,']{1,10} ) /cgx) |
|
110
|
27 |
12 |
if (defined $note and not defined $chrome) |
|
112
|
9 |
18 |
if (@howmany = $name =~ / \G (ess|es|flat|[bf]) /cgx) { } |
|
|
10 |
8 |
elsif (@howmany = $name =~ / \G (iss|is|sharp|[#dks]) /cgx) { } |
|
122
|
20 |
0 |
if ($name =~ / \G (?: \s+ | . ) /cgsx) |
|
126
|
1 |
32 |
unless defined $note |
|
130
|
15 |
17 |
if (defined $octave and looks_like_number $octave) { } |
|
138
|
3 |
14 |
$octave =~ /,/ ? : |
|
150
|
19 |
13 |
if defined $chrome |