| line |
true |
false |
branch |
|
30
|
1 |
8 |
if (exists $param{'big_dissonance'}) { } |
|
38
|
1 |
8 |
if (exists $param{'octave_allow'}) { } |
|
46
|
4 |
5 |
if (exists $param{'interior'}) { } |
|
48
|
2 |
2 |
unless defined $param{'interior'} and ref $param{'interior'} eq 'HASH' |
|
51
|
1 |
12 |
unless exists $param{'interior'}{$i} |
|
52
|
7 |
5 |
$param{'interior'}{$i} ? : |
|
71
|
4 |
2 |
if (exists $param{'tensions'}) { } |
|
73
|
2 |
2 |
unless defined $param{'tensions'} and ref $param{'tensions'} eq 'HASH' |
|
76
|
1 |
23 |
unless exists $param{'tensions'}{$i} |
|
77
|
16 |
7 |
$param{'tensions'}{$i} ? : |
|
117
|
2 |
63 |
unless defined $p1 and defined $p2 |
|
118
|
2 |
61 |
unless $p1 =~ /^-?[0-9]+$/ and $p2 =~ /^-?[0-9]+$/ |
|
125
|
18 |
43 |
if (abs $interval >= $DEG_IN_SCALE) |
|
126
|
5 |
13 |
if ($mod == 0) { } |
|
129
|
4 |
1 |
$self->{'_octave_allow'} ? : |
|
133
|
10 |
3 |
if $self->{'_big_dissonance'} |
|
137
|
6 |
40 |
$interval < 0 ? : |
|
148
|
3 |
4 |
unless $consonant |
|
157
|
2 |
12 |
unless defined $pset and ref $pset eq 'ARRAY' |
|
159
|
1 |
11 |
if @$pset < 2 |
|
167
|
3 |
19 |
if $self->pitches($pcs[0], $pcs[$i]) == 0 |
|
172
|
13 |
6 |
if ($i < $#pcs) |
|
176
|
5 |
13 |
if ($interval >= $DEG_IN_SCALE) |
|
177
|
2 |
3 |
if ($mod == 0) { } |
|
178
|
1 |
1 |
if ($self->{'_octave_allow'}) { } |
|
184
|
2 |
1 |
if $self->{'_big_dissonance'} |
|
187
|
1 |
13 |
if $self->{'_interior'}{$mod} == 0 |