| line |
true |
false |
branch |
|
71
|
1 |
59 |
if $leading < 1 or $leading > 7 |
|
75
|
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') { } |
|
82
|
6 |
6 |
if ($self->format eq 'midinum') { } |
|
86
|
4 |
2 |
if ($top =~ /^(.+?)(\d+)$/) |
|
98
|
16 |
0 |
if $inversion->{'1'} |
|
103
|
10 |
6 |
if $inversion->{'2'} |
|
107
|
2 |
2 |
$variation == 1 ? : |
|
115
|
1 |
1 |
if ($inversion) { } |
|
117
|
0 |
1 |
unless defined $inversion->{'1'} |
|
119
|
0 |
1 |
unless defined $inversion->{'2'} |
|
143
|
2 |
0 |
if $inversion and $inversion->{'1'} |
|
148
|
0 |
2 |
if $inversion and $inversion->{'2'} |
|
155
|
2 |
2 |
$variation == 1 ? : |
|
163
|
3 |
52 |
if ($picardy) |
|
164
|
1 |
2 |
if ($self->format eq 'midinum') { } |
|
184
|
2 |
30 |
if ($self->format eq 'midinum') { } |
|
189
|
18 |
12 |
if $octave |
|
203
|
64 |
42 |
if ($octave) { } |
|
212
|
12 |
94 |
if ($self->format eq "midi") |
|
238
|
1 |
112 |
unless exists $diminished{$scale} |
|
248
|
11 |
89 |
$roman =~ /^[a-z]/ ? : |
|
|
11 |
100 |
$roman =~ /^$diminished{$scale}$/ ? : |
|
250
|
54 |
57 |
if $self->seven |
|
258
|
8 |
103 |
if ($self->format eq 'midi') { } |
|
|
14 |
89 |
elsif ($self->format eq 'midinum') { } |
|
|
1 |
88 |
elsif ($self->format ne 'isobase') { } |
|
274
|
26 |
84 |
if $octave and $self->format ne "midinum" |
|
285
|
3 |
9 |
if &any(sub {
$n == $_;
}
, @$indices) |