| 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]$/ |
|
126
|
1 |
6 |
if ($flavor =~ m[^/]) |
|
132
|
1 |
6 |
if $next_chord |
|
135
|
0 |
7 |
if $self->verbose |
|
136
|
0 |
7 |
if $self->verbose and $next_chord |
|
139
|
1 |
6 |
defined $next_chord ? : |
|
146
|
7 |
0 |
$scale ? : |
|
147
|
1 |
6 |
$next_scale ? : |
|
150
|
6 |
1 |
if ($self->chord_notes) |
|
151
|
0 |
6 |
if $self->verbose |
|
153
|
2 |
18 |
unless (&any(sub {
$_ == $n;
}
, @pitches)) |
|
155
|
0 |
2 |
if ($self->verbose) |
|
166
|
0 |
7 |
if $self->verbose |
|
172
|
6 |
45 |
if ($x =~ /#/) { } |
|
|
0 |
45 |
elsif ($x =~ /b/) { } |
|
179
|
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]) |
|
191
|
0 |
3 |
if $self->verbose |
|
197
|
0 |
7 |
if ($self->guitar) |
|
198
|
0 |
0 |
$_ < 28 ? : |
|
201
|
1 |
6 |
if ($self->wrap) |
|
204
|
6 |
1 |
$_ > $n ? : |
|
209
|
0 |
7 |
if $self->verbose |
|
223
|
1 |
6 |
if ($self->tonic) |
|
224
|
0 |
1 |
if ($scale eq 'pentatonic' or $scale eq 'pminor') { } |
|
|
1 |
0 |
elsif (@fixed == 7) { } |
|
233
|
1 |
6 |
if ($next_chord) |
|
237
|
0 |
1 |
if $self->verbose |
|
239
|
1 |
0 |
if (@intersect) |
|
240
|
1 |
0 |
if (my $closest = _closest($chosen[-2] || $chosen[-1], \@intersect)) |
|
247
|
0 |
7 |
if $self->verbose |
|
256
|
13 |
0 |
if ($chord =~ /^([A-G][#b]?)(.*)$/) |
|
275
|
0 |
2 |
unless @$list |
|
282
|
5 |
2 |
if $diff[$n] != $min |