| line |
true |
false |
branch |
|
84
|
1 |
14 |
unless &looks_like_number($number) |
|
86
|
2 |
12 |
$self->ignore_octave ? : |
|
94
|
2 |
33 |
if &looks_like_number($name) |
|
99
|
33 |
5 |
if $name =~ /\G \z /cgx or defined $octave and defined $note and defined $chrome |
|
103
|
0 |
96 |
if (not defined $octave and $name =~ / \G ( [,]{1,10} ) /cgx) |
|
111
|
32 |
64 |
if (not defined $note and $name =~ / \G (?: (?[A-G])(?\k{1,10}) | (?[A-Ga-g])) /cgx) |
|
117
|
3 |
29 |
if (defined $+{'multi'} and not defined $octave) |
|
123
|
48 |
16 |
if (defined $note and not defined $octave) |
|
126
|
15 |
33 |
if ($name =~ / \G ( [+-]?[0-9]{1,2} ) /cgx) |
|
131
|
10 |
23 |
if ($name =~ / \G ( [,']{1,10} ) /cgx) |
|
143
|
27 |
12 |
if (defined $note and not defined $chrome) |
|
145
|
9 |
18 |
if (@howmany = $name =~ / \G (ess|es|flat|[bf]) /cgx) { } |
|
|
10 |
8 |
elsif (@howmany = $name =~ / \G (iss|is|sharp|[#dks]) /cgx) { } |
|
155
|
20 |
0 |
if ($name =~ / \G (?: \s+ | . ) /cgsx) |
|
159
|
1 |
32 |
unless defined $note |
|
163
|
15 |
17 |
if (defined $octave and &looks_like_number($octave)) { } |
|
171
|
3 |
14 |
$octave =~ /,/ ? : |
|
183
|
19 |
13 |
if defined $chrome |