| line |
true |
false |
branch |
|
48
|
2 |
5 |
if (exists $param->{'pitches'} and exists $param->{'intervals'}) { } |
|
|
4 |
1 |
elsif (exists $param->{'possibles'}) { } |
|
52
|
0 |
2 |
if not defined $param->{'pitches'} or ref $param->{'pitches'} ne 'ARRAY' or not @{$param->{'pitches'};} |
|
56
|
0 |
2 |
if not defined $param->{'intervals'} or ref $param->{'intervals'} ne 'ARRAY' or not @{$param->{'intervals'};} |
|
67
|
7 |
11 |
if (exists $allowed_pitches{$newpitch}) |
|
79
|
0 |
4 |
if not defined $param->{'possibles'} or ref $param->{'possibles'} ne 'HASH' |
|
91
|
21 |
13 |
unless defined $context |
|
92
|
1 |
12 |
if ref $context ne 'ARRAY' |
|
94
|
6 |
7 |
if (@$context > $mc) |
|
106
|
2 |
10 |
if (not @$context) { } |
|
108
|
0 |
2 |
unless @possibles |
|
113
|
10 |
7 |
if (exists $choices->{$key}) |
|
115
|
10 |
0 |
if defined $choice |
|
121
|
0 |
12 |
unless defined $choice |
|
132
|
0 |
8 |
if not defined $possibles or ref $possibles ne 'HASH' |
|
149
|
1 |
7 |
unless ($param{'preserve_pitches'}) |