| line |
true |
false |
branch |
|
72
|
3 |
6 |
if (exists $param->{'pitches'} and exists $param->{'intervals'}) { } |
|
|
5 |
1 |
elsif (exists $param->{'possibles'}) { } |
|
76
|
0 |
3 |
if not defined $param->{'pitches'} or ref $param->{'pitches'} ne 'ARRAY' or not @{$param->{'pitches'};} |
|
80
|
0 |
3 |
if not defined $param->{'intervals'} or ref $param->{'intervals'} ne 'ARRAY' or not @{$param->{'intervals'};} |
|
91
|
106 |
12 |
if (exists $allowed_pitches{$newpitch}) |
|
103
|
0 |
5 |
if not defined $param->{'possibles'} or ref $param->{'possibles'} ne 'HASH' |
|
115
|
26 |
18 |
unless defined $context |
|
116
|
1 |
17 |
if ref $context ne 'ARRAY' |
|
118
|
6 |
12 |
if (@$context > $mc) |
|
130
|
4 |
13 |
if (not @$context) { } |
|
132
|
0 |
4 |
unless @possibles |
|
138
|
16 |
7 |
if (exists $choices->{$key}) |
|
141
|
10 |
6 |
if $abort |
|
148
|
0 |
16 |
unless defined $choice |
|
158
|
0 |
1 |
if @_ < 5 |
|
159
|
0 |
1 |
if ref $list ne 'ARRAY' |
|
171
|
0 |
11 |
if not defined $possibles or ref $possibles ne 'HASH' |
|
188
|
2 |
9 |
unless ($param{'preserve_pitches'}) |