| line |
true |
false |
branch |
|
83
|
4 |
7 |
if ($self->modal) { } |
|
90
|
5 |
0 |
$position >= 0 ? : |
|
95
|
1 |
7 |
$_[0] =~ /^[A-G][#b]?m/ ? : |
|
115
|
5 |
65 |
unless $arg =~ /^[01]$/ |
|
125
|
1 |
6 |
if ($chord =~ m[^(.+)/]) |
|
131
|
1 |
6 |
if $next_chord |
|
134
|
0 |
7 |
if $self->verbose |
|
135
|
0 |
7 |
if $self->verbose and $next_chord |
|
138
|
1 |
6 |
defined $next_chord ? : |
|
145
|
7 |
0 |
$scale ? : |
|
146
|
1 |
6 |
$next_scale ? : |
|
149
|
6 |
1 |
if ($self->chord_notes) |
|
150
|
0 |
6 |
if $self->verbose |
|
152
|
2 |
18 |
unless (&any(sub {
$_ == $n;
}
, @pitches)) |
|
154
|
0 |
2 |
if ($self->verbose) |
|
165
|
0 |
7 |
if $self->verbose |
|
171
|
6 |
45 |
if ($x =~ /#/) { } |
|
|
0 |
45 |
elsif ($x =~ /b/) { } |
|
178
|
0 |
0 |
if ($flavor =~ /[#b]5/ and $tones[4] and $x eq $tones[4] || $y eq $tones[4] or $flavor =~ /7/ and not $flavor =~ /[Mm]7/ and $tones[6] and $x eq $tones[6] || $y eq $tones[6] or $flavor =~ /[#b]9/ and $tones[1] and $x eq $tones[1] || $y eq $tones[1] or $flavor =~ /dim/ and $tones[2] and $x eq $tones[2] || $y eq $tones[2] or $flavor =~ /dim/ and $tones[6] and $x eq $tones[6] || $y eq $tones[6] or $flavor =~ /aug/ and $tones[6] and $x eq $tones[6] || $y eq $tones[6]) |
|
190
|
0 |
3 |
if $self->verbose |
|
196
|
0 |
7 |
if ($self->guitar) |
|
197
|
0 |
0 |
$_ < 28 ? : |
|
200
|
1 |
6 |
if ($self->wrap) |
|
203
|
6 |
1 |
$_ > $n ? : |
|
208
|
0 |
7 |
if $self->verbose |
|
222
|
1 |
6 |
if ($self->tonic) |
|
223
|
0 |
1 |
if ($scale eq 'pentatonic' or $scale eq 'pminor') { } |
|
|
1 |
0 |
elsif (@fixed == 7) { } |
|
232
|
1 |
6 |
if ($next_chord) |
|
236
|
0 |
1 |
if $self->verbose |
|
238
|
1 |
0 |
if (@intersect) |
|
239
|
1 |
0 |
if (my $closest = _closest($chosen[-2] || $chosen[-1], \@intersect)) |
|
246
|
0 |
7 |
if $self->verbose |
|
255
|
13 |
0 |
if ($chord =~ /^([A-G][#b]?)(.*)$/) |
|
274
|
0 |
2 |
unless @$list |
|
281
|
3 |
3 |
if $diff[$n] != $min |