| line |
true |
false |
branch |
|
48
|
0 |
3 |
unless open my $fh, "<", $file |
|
57
|
1500 |
516 |
if $r ne "" |
|
72
|
1 |
7 |
unless $target |
|
78
|
6 |
1 |
if (defined $variation) { } |
|
101
|
25 |
12 |
if (&any(sub {
$_ == $c;
}
, @$pitches)) |
|
119
|
2 |
1 |
if ($format) |
|
149
|
8 |
2 |
if (defined $variation) { } |
|
155
|
8 |
0 |
if $p >= 0 |
|
163
|
6 |
4 |
if $p >= 0 |
|
180
|
12 |
6 |
if ($pos != 1 and not $str =~ /0/) { } |
|
|
2 |
8 |
elsif ($p > 1 and $str =~ /0/) { } |
|
181
|
4 |
8 |
if ($p == 0 and not $str =~ /0/) { } |
|
|
0 |
8 |
elsif ($p != 0 and $str =~ /0/) { } |
|
202
|
10 |
2 |
$char =~ /\d/ ? : |
|
211
|
20 |
4 |
$char =~ /\d/ ? : |