| line |
true |
false |
branch |
|
73
|
1 |
59 |
if $leading < 1 or $leading > 7 |
|
77
|
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') { } |
|
84
|
6 |
6 |
if ($self->format eq 'midinum') { } |
|
88
|
4 |
2 |
if ($top =~ /^(.+?)(\d+)$/) |
|
100
|
16 |
0 |
if $inversion->{'1'} |
|
105
|
10 |
6 |
if $inversion->{'2'} |
|
109
|
2 |
2 |
$variation == 1 ? : |
|
117
|
1 |
1 |
if ($inversion) { } |
|
119
|
0 |
1 |
unless defined $inversion->{'1'} |
|
121
|
0 |
1 |
unless defined $inversion->{'2'} |
|
145
|
2 |
0 |
if $inversion and $inversion->{'1'} |
|
150
|
0 |
2 |
if $inversion and $inversion->{'2'} |
|
157
|
2 |
2 |
$variation == 1 ? : |
|
165
|
3 |
52 |
if ($picardy) |
|
166
|
1 |
2 |
if ($self->format eq 'midinum') { } |
|
186
|
2 |
30 |
if ($self->format eq 'midinum') { } |
|
191
|
18 |
12 |
if $octave |
|
205
|
64 |
42 |
if ($octave) { } |
|
214
|
12 |
94 |
if ($self->format eq "midi") |
|
240
|
1 |
112 |
unless exists $diminished{$scale} |
|
250
|
11 |
89 |
$roman =~ /^[a-z]/ ? : |
|
|
11 |
100 |
$roman =~ /^$diminished{$scale}$/ ? : |
|
252
|
54 |
57 |
if $self->seven |
|
260
|
8 |
103 |
if ($self->format eq 'midi') { } |
|
|
14 |
89 |
elsif ($self->format eq 'midinum') { } |
|
|
1 |
88 |
elsif ($self->format ne 'isobase') { } |
|
276
|
26 |
84 |
if $octave and $self->format ne "midinum" |
|
287
|
3 |
9 |
if &any(sub {
$n == $_;
}
, @$indices) |