| blib/lib/MIDI/Chord/Guitar.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 25 | 28 | 89.2 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 0 | 3 | unless open my $fh, "<", $file |
| 54 | 1500 | 516 | if $r ne "" |
| 74 | 7 | 1 | if (defined $variation) { } |
| 97 | 26 | 12 | if (&any(sub { $_ == $c; } , @$pitches)) |
| 115 | 2 | 1 | if ($format) |
| 145 | 8 | 2 | if (defined $variation) { } |
| 151 | 8 | 0 | if $p >= 0 |
| 159 | 6 | 4 | if $p >= 0 |
| 176 | 12 | 6 | if ($pos != 1 and not $str =~ /0/) { } |
| 2 | 8 | elsif ($p > 1 and $str =~ /0/) { } | |
| 177 | 4 | 8 | if ($p == 0 and not $str =~ /0/) { } |
| 0 | 8 | elsif ($p != 0 and $str =~ /0/) { } | |
| 198 | 10 | 2 | $char =~ /\d/ ? : |
| 207 | 20 | 4 | $char =~ /\d/ ? : |