| line |
true |
false |
branch |
|
53
|
1 |
1946 |
unless $chord |
|
60
|
0 |
1946 |
if $self->verbose |
|
65
|
42 |
1904 |
if ($self->scale_note =~ /##/ and $self->scale_name ne 'major' and $self->scale_name ne 'ionian') { } |
|
84
|
0 |
1946 |
if $self->verbose |
|
116
|
5 |
1941 |
if $note =~ /bb$/ |
|
122
|
56 |
1890 |
if ($position < 0 and $note eq 'Cb' || $note eq 'Fb') { } |
|
|
62 |
1828 |
elsif ($note eq 'E#') { } |
|
123
|
18 |
38 |
if $note eq "Cb" |
|
125
|
38 |
18 |
if $note eq "Fb" |
|
134
|
208 |
1738 |
if ($position < 0 and $note =~ /[#b]+$/) |
|
138
|
93 |
115 |
$accidental =~ /^#/ ? : |
|
145
|
352 |
1594 |
if ($position < 0) |
|
150
|
0 |
1946 |
if $self->verbose |
|
156
|
268 |
1678 |
$decorator =~ /[-mo\303\270]/ ? : |
|
157
|
0 |
1946 |
if $self->verbose |
|
160
|
719 |
1227 |
if ($self->chords) |
|
161
|
265 |
454 |
$minor && !($decorator =~ /maj/i) ? : |
|
165
|
352 |
1594 |
if $accidental |
|
166
|
0 |
1946 |
if $self->verbose |
|
170
|
0 |
1946 |
if $self->verbose |
|
173
|
55 |
1891 |
if ($decorator =~ /maj/i or $decorator =~ /min/i) { } |
|
|
1 |
1890 |
elsif ($decorator =~ /\342\226\263/) { } |
|
|
1 |
1889 |
elsif ($decorator =~ /\303\270/) { } |
|
186
|
0 |
1946 |
if $self->verbose |
|
189
|
207 |
1739 |
if ($decorator =~ /($note_re)/) |
|
193
|
0 |
207 |
if $self->verbose |
|
195
|
119 |
88 |
if ($position >= 0) { } |
|
200
|
0 |
88 |
if $self->verbose |
|
208
|
0 |
207 |
if $self->verbose |
|
217
|
0 |
1946 |
if $self->verbose |
|
228
|
126 |
1820 |
if ($self->scale_name eq 'dorian') { } |
|
|
126 |
1694 |
elsif ($self->scale_name eq 'phrygian') { } |
|
|
126 |
1568 |
elsif ($self->scale_name eq 'lydian') { } |
|
|
126 |
1442 |
elsif ($self->scale_name eq 'mixolydian') { } |
|
|
128 |
1314 |
elsif ($self->scale_name eq 'minor' or $self->scale_name eq 'aeolian') { } |
|
|
126 |
1188 |
elsif ($self->scale_name eq 'locrian') { } |
|
263
|
0 |
0 |
/^[A-Z]+$/ ? : |
|
|
0 |
0 |
/^$diminished{$self->scale_name}$/ ? : |
|
283
|
265 |
175 |
if (length $note == 1) { } |
|
291
|
149 |
116 |
$accidental eq '#' ? : |
|
304
|
47 |
128 |
if exists $previous_enharmonics{$note} and &any(sub {
$_ =~ /[CFG]##/;
}
, @$notes) |
|
312
|
47 |
128 |
$accidental eq '##' ? : |