| line |
true |
false |
branch |
|
29
|
1 |
21 |
if (exists $args->{'key2pitch'} and exists $args->{'key_set'}) { } |
|
|
5 |
16 |
elsif (exists $args->{'key2pitch'}) { } |
|
|
15 |
1 |
elsif (exists $args->{'key_set'}) { } |
|
36
|
2 |
2 |
unless defined $args->{'key2pitch'} and ref $args->{'key2pitch'} eq 'HASH' and keys %{$$args{'key2pitch'}} |
|
40
|
2 |
12 |
unless defined $set and ref $set eq 'HASH' and keys %$set |
|
48
|
2 |
9 |
unless defined $set->{'intervals'} and ref $set->{'intervals'} eq 'ARRAY' and @{$set->{'intervals'}} |
|
52
|
2 |
6 |
unless defined $set->{'keys'} and ref $set->{'keys'} eq 'ARRAY' and @{$set->{'keys'}} |
|
54
|
2 |
4 |
unless defined $set->{'min'} and $set->{'min'} =~ /^(?a)-?\d+$/u |
|
56
|
2 |
2 |
unless defined $set->{'max'} and $set->{'max'} =~ /^(?a)-?\d+$/u |
|
58
|
1 |
1 |
if $set->{'min'} >= $set->{'max'} |
|
68
|
1 |
14 |
if $pitch > $set->{'max'} |
|
81
|
1 |
2 |
if exists $args->{'pitchstyle'} |
|
90
|
2 |
18 |
unless defined $sequence and ref $sequence eq 'ARRAY' |
|
92
|
1 |
17 |
if @$sequence < 2 |
|
94
|
4 |
13 |
if (exists $param{'renew'}) { } |
|
97
|
1 |
3 |
unless not defined $param{'renew'} or ref $param{'renew'} eq 'CODE' |
|
103
|
2 |
13 |
unless defined $key2pitch and ref $key2pitch eq 'HASH' and keys %$key2pitch |
|
114
|
1 |
28 |
unless defined $s |
|
115
|
8 |
20 |
if ($s =~ /^(?a)-?\d+$/u) { } |
|
119
|
4 |
16 |
unless ref $choices eq 'ARRAY' |
|
122
|
1 |
15 |
if $length == 0 |
|
123
|
1 |
14 |
if ($length == 1) |
|
128
|
8 |
6 |
if defined $param{'renew'} |
|
136
|
13 |
5 |
if ref $p eq 'ARRAY' |
|
137
|
1 |
6 |
if $refcount == 0 |
|
140
|
2 |
24 |
unless @possible |
|
144
|
79 |
6 |
if (ref $p eq 'ARRAY') { } |
|
153
|
2 |
43 |
if ($i == -1) { } |
|
|
40 |
3 |
elsif (ref $possible[$i] eq 'ARRAY') { } |
|
158
|
18 |
22 |
if (++$possible[$i][0] >= @{$possible[$i][1]}) { } |
|
167
|
8 |
16 |
if ($dirty) |
|
169
|
12 |
19 |
if (ref $possible[$i] eq 'ARRAY' and $possible[$i][0] == -1) |
|
172
|
1 |
11 |
if defined $param{'renew'} |
|
177
|
1 |
23 |
if (defined $self->pitchstyle) |
|
195
|
3 |
4 |
if ($index == 0) { } |
|
199
|
1 |
3 |
ref $previous eq 'ARRAY' ? : |
|
220
|
2 |
12 |
if $s == 0 |