| line |
true |
false |
branch |
|
72
|
1 |
59 |
if $leading < 1 or $leading > 7 |
|
76
|
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') { } |
|
83
|
6 |
6 |
if ($self->format eq 'midinum') { } |
|
87
|
4 |
2 |
if ($top =~ /^(.+?)(\d+)$/) |
|
99
|
16 |
0 |
if $inversion->{'1'} |
|
104
|
10 |
6 |
if $inversion->{'2'} |
|
108
|
2 |
2 |
$variation == 1 ? : |
|
116
|
1 |
1 |
if ($inversion) { } |
|
118
|
0 |
1 |
unless defined $inversion->{'1'} |
|
120
|
0 |
1 |
unless defined $inversion->{'2'} |
|
144
|
2 |
0 |
if $inversion and $inversion->{'1'} |
|
149
|
0 |
2 |
if $inversion and $inversion->{'2'} |
|
156
|
2 |
2 |
$variation == 1 ? : |
|
164
|
3 |
52 |
if ($picardy) |
|
165
|
1 |
2 |
if ($self->format eq 'midinum') { } |
|
185
|
2 |
30 |
if ($self->format eq 'midinum') { } |
|
190
|
18 |
12 |
if $octave |
|
204
|
64 |
42 |
if ($octave) { } |
|
213
|
12 |
94 |
if ($self->format eq "midi") |
|
239
|
1 |
112 |
unless exists $diminished{$scale} |
|
249
|
11 |
89 |
$roman =~ /^[a-z]/ ? : |
|
|
11 |
100 |
$roman =~ /^$diminished{$scale}$/ ? : |
|
251
|
54 |
57 |
if $self->seven |
|
259
|
8 |
103 |
if ($self->format eq 'midi') { } |
|
|
14 |
89 |
elsif ($self->format eq 'midinum') { } |
|
|
1 |
88 |
elsif ($self->format ne 'isobase') { } |
|
275
|
26 |
84 |
if $octave and $self->format ne "midinum" |
|
286
|
3 |
9 |
if &any(sub {
$n == $_;
}
, @$indices) |