| line |
true |
false |
branch |
|
108
|
2 |
9 |
if (ref($note) =~ /HASH/) { } |
|
113
|
6 |
3 |
if ($type eq 'iso' or $type eq 'isobase' or $type eq 'midi' or $type eq 'pdl') { } |
|
|
1 |
2 |
elsif ($type eq 'musicxml' or $type eq 'xml') { } |
|
|
1 |
1 |
elsif ($type eq 'midinum') { } |
|
|
1 |
0 |
elsif ($type eq 'kern') { } |
|
115
|
6 |
0 |
if $1 |
|
116
|
5 |
1 |
if defined $3 |
|
120
|
0 |
6 |
if $alt eq 'bb' |
|
121
|
3 |
3 |
if $alt eq 'b' |
|
122
|
3 |
3 |
if $alt eq '#' |
|
123
|
0 |
6 |
if $alt eq 'x' or $alt eq '##' |
|
126
|
1 |
0 |
if $1 |
|
|
1 |
0 |
if ($note =~ m[(.*?)]) |
|
127
|
1 |
0 |
if $1 |
|
|
1 |
0 |
if ($note =~ m[(.*?)]) |
|
128
|
0 |
1 |
if $1 |
|
|
1 |
0 |
if ($note =~ m[(.*?)]) |
|
136
|
1 |
0 |
$alt =~ /-/ ? : |
|
139
|
1 |
0 |
if ($step eq uc $step) |
|
148
|
0 |
12 |
if @_ and $_[0] =~ /^[A-G]$/ |
|
153
|
0 |
12 |
if @_ and $_[0] =~ /[+-]?\d+/ |
|
158
|
1 |
12 |
if @_ and $_[0] =~ /[+-]?\d+/ |
|
168
|
4 |
12 |
if ($format eq 'iso') |
|
171
|
2 |
10 |
if ($format eq 'isobase') { } |
|
|
2 |
8 |
elsif ($format eq 'midi') { } |
|
|
2 |
6 |
elsif ($format eq 'pdl') { } |
|
|
2 |
4 |
elsif ($format eq 'midinum') { } |
|
|
2 |
2 |
elsif ($format eq 'kern') { } |
|
|
2 |
0 |
elsif ($format eq 'xml' or $format eq 'musicxml') { } |
|
186
|
1 |
1 |
if ($o >= 0) { } |
|
201
|
0 |
2 |
if ($alt < 0 and $$self{'alter'}) |
|
210
|
0 |
1 |
if ($type =~ /^[s\#]/) { } |
|
|
1 |
0 |
elsif ($type =~ /^[fb]/) { } |
|
214
|
0 |
0 |
if $stepnum < 12 |
|
220
|
0 |
1 |
if $stepnum > 24 |
|
234
|
2 |
1 |
if ($step =~ s/S$//) |