| line |
true |
false |
branch |
|
78
|
1 |
59 |
if $leading < 1 or $leading > 7 |
|
82
|
15 |
44 |
if ($type eq 'perfect') { } |
|
|
16 |
28 |
elsif ($type eq 'imperfect' and $inversion) { } |
|
|
4 |
24 |
elsif ($type eq 'imperfect') { } |
|
|
2 |
22 |
elsif ($type eq 'evaded' and $self->seven) { } |
|
|
4 |
18 |
elsif ($type eq 'plagal') { } |
|
|
13 |
5 |
elsif ($type eq 'half') { } |
|
|
4 |
1 |
elsif ($type eq 'deceptive') { } |
|
89
|
6 |
6 |
if ($self->format eq 'midinum') { } |
|
93
|
4 |
2 |
if ($top =~ /^(.+?)(\d+)$/) |
|
99
|
0 |
12 |
if $self->verbose |
|
101
|
0 |
12 |
if $self->verbose |
|
107
|
16 |
0 |
if $inversion->{'1'} |
|
112
|
10 |
6 |
if $inversion->{'2'} |
|
116
|
2 |
2 |
$variation == 1 ? : |
|
118
|
0 |
4 |
if $self->verbose |
|
122
|
0 |
4 |
if $self->verbose |
|
126
|
1 |
1 |
if ($inversion) { } |
|
128
|
0 |
1 |
unless defined $inversion->{'1'} |
|
130
|
0 |
1 |
unless defined $inversion->{'2'} |
|
138
|
0 |
2 |
if $self->verbose |
|
143
|
0 |
2 |
if $self->verbose |
|
148
|
0 |
4 |
if $self->verbose |
|
152
|
0 |
4 |
if $self->verbose |
|
158
|
2 |
0 |
if $inversion and $inversion->{'1'} |
|
159
|
0 |
13 |
if $self->verbose |
|
164
|
0 |
2 |
if $inversion and $inversion->{'2'} |
|
165
|
0 |
13 |
if $self->verbose |
|
170
|
0 |
4 |
if $self->verbose |
|
173
|
2 |
2 |
$variation == 1 ? : |
|
175
|
0 |
4 |
if $self->verbose |
|
182
|
3 |
52 |
if ($picardy) |
|
183
|
1 |
2 |
if ($self->format eq 'midinum') { } |
|
203
|
2 |
30 |
if ($self->format eq 'midinum') { } |
|
208
|
18 |
12 |
if $octave |
|
222
|
64 |
42 |
if ($octave) { } |
|
231
|
12 |
94 |
if ($self->format eq "midi") |
|
257
|
1 |
112 |
unless exists $diminished{$scale} |
|
267
|
11 |
89 |
$roman =~ /^[a-z]/ ? : |
|
|
11 |
100 |
$roman =~ /^$diminished{$scale}$/ ? : |
|
269
|
54 |
57 |
if $self->seven |
|
277
|
8 |
103 |
if ($self->format eq 'midi') { } |
|
|
14 |
89 |
elsif ($self->format eq 'midinum') { } |
|
|
1 |
88 |
elsif ($self->format ne 'isobase') { } |
|
293
|
26 |
84 |
if $octave and $self->format ne "midinum" |
|
304
|
3 |
9 |
if &any(sub {
$n == $_;
}
, @$indices) |