| line |
true |
false |
branch |
|
83
|
4 |
6 |
if ($self->modal) { } |
|
90
|
4 |
0 |
$position >= 0 ? : |
|
95
|
1 |
3 |
$_[0] =~ /^[A-G][#b]?m/ ? : |
|
115
|
5 |
60 |
unless $arg =~ /^[01]$/ |
|
128
|
0 |
5 |
if $next_chord |
|
131
|
0 |
5 |
if $self->verbose |
|
132
|
0 |
5 |
if $self->verbose and $next_chord |
|
135
|
0 |
5 |
defined $next_chord ? : |
|
142
|
5 |
0 |
$scale ? : |
|
143
|
0 |
5 |
$next_scale ? : |
|
146
|
4 |
1 |
if ($self->chord_notes) |
|
147
|
0 |
4 |
if $self->verbose |
|
149
|
2 |
12 |
unless (&any(sub {
$_ == $n;
}
, @pitches)) |
|
151
|
0 |
2 |
if ($self->verbose) |
|
162
|
0 |
5 |
if $self->verbose |
|
168
|
2 |
35 |
if ($x =~ /#/) { } |
|
|
0 |
35 |
elsif ($x =~ /b/) { } |
|
175
|
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]) |
|
187
|
0 |
3 |
if $self->verbose |
|
193
|
0 |
5 |
if ($self->guitar) |
|
194
|
0 |
0 |
$_ < 28 ? : |
|
197
|
1 |
4 |
if ($self->wrap) |
|
200
|
6 |
1 |
$_ > $n ? : |
|
205
|
0 |
5 |
if $self->verbose |
|
219
|
1 |
4 |
if ($self->tonic) |
|
220
|
0 |
1 |
if ($scale eq 'pentatonic' or $scale eq 'pminor') { } |
|
|
1 |
0 |
elsif (@fixed == 7) { } |
|
229
|
0 |
5 |
if ($next_chord) |
|
233
|
0 |
0 |
if $self->verbose |
|
235
|
0 |
0 |
if (@intersect) |
|
236
|
0 |
0 |
if (my $closest = _closest($chosen[-2] || $chosen[-1], \@intersect)) |
|
243
|
0 |
5 |
if $self->verbose |
|
252
|
9 |
0 |
if ($chord =~ /^([A-G][#b]?)(.*)$/) |
|
271
|
0 |
1 |
unless @$list |
|
278
|
1 |
1 |
if $diff[$n] != $min |