| line |
true |
false |
branch |
|
86
|
4 |
8 |
if ($self->modal) { } |
|
93
|
5 |
0 |
$position >= 0 ? : |
|
98
|
1 |
10 |
$_[0] =~ /^[A-G][#b]?m/u ? : |
|
123
|
5 |
70 |
unless $arg =~ /^[01]$/u |
|
133
|
1 |
9 |
if ($chord =~ m[^(.+)/]u) |
|
139
|
1 |
9 |
if $next_chord |
|
142
|
0 |
10 |
if $self->verbose |
|
143
|
0 |
10 |
if $self->verbose and $next_chord |
|
146
|
1 |
9 |
defined $next_chord ? : |
|
154
|
1 |
9 |
if ($self->positions and $scale) { } |
|
|
9 |
0 |
elsif ($scale) { } |
|
157
|
1 |
6 |
if grep {$_ == $n;} @{$self->positions->{$scale};} |
|
167
|
1 |
9 |
$next_scale ? : |
|
170
|
8 |
2 |
if ($self->chord_notes) |
|
171
|
0 |
8 |
if $self->verbose |
|
173
|
2 |
24 |
unless (&any(sub {
$_ == $n;
}
, @pitches)) |
|
175
|
0 |
2 |
if ($self->verbose) |
|
186
|
0 |
10 |
if $self->verbose |
|
192
|
8 |
58 |
if ($x =~ /#/u) { } |
|
|
0 |
58 |
elsif ($x =~ /b/u) { } |
|
199
|
0 |
0 |
if ($flavor =~ /[#b]5/u and $tones[4] and $x eq $tones[4] || $y eq $tones[4] or $flavor =~ /7/u and not $flavor =~ /[Mm]7/u and $tones[6] and $x eq $tones[6] || $y eq $tones[6] or $flavor =~ /[#b]9/u and $tones[1] and $x eq $tones[1] || $y eq $tones[1] or $flavor =~ /dim/u and $tones[2] and $x eq $tones[2] || $y eq $tones[2] or $flavor =~ /dim/u and $tones[6] and $x eq $tones[6] || $y eq $tones[6] or $flavor =~ /aug/u and $tones[6] and $x eq $tones[6] || $y eq $tones[6]) |
|
211
|
0 |
3 |
if $self->verbose |
|
217
|
0 |
10 |
if ($self->guitar) |
|
218
|
0 |
0 |
if ($_ < 28) { } |
|
221
|
1 |
9 |
if ($self->wrap) |
|
224
|
6 |
1 |
if ($_ > $n) { } |
|
229
|
0 |
10 |
if $self->verbose |
|
232
|
9 |
1 |
if (@fixed > 1) { } |
|
255
|
2 |
8 |
if ($self->tonic) |
|
260
|
1 |
9 |
if ($next_chord) |
|
264
|
0 |
1 |
if $self->verbose |
|
266
|
1 |
0 |
if (@intersect) |
|
267
|
1 |
0 |
if (my $closest = _closest($chosen[-2] || $chosen[-1], \@intersect)) |
|
274
|
0 |
10 |
if $self->verbose |
|
283
|
16 |
0 |
if ($chord =~ /^([A-G][#b]?)(.*)$/u) |
|
302
|
0 |
1 |
unless @$list |
|
309
|
3 |
1 |
if $diff[$n] != $min |