| blib/lib/MIDI/Simple/Drummer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 84 | 108 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 160 | 0 | $n =~ /([whqesxyz])n$/ ? : |
| 32 | 160 | 0 | if ($name) { } |
| 35 | 40 | 120 | if $n =~ /t\w/ |
| 36 | 40 | 120 | if $n =~ /^dd/ |
| 37 | 40 | 120 | if $n =~ /^d[^d]/ |
| 38 | 120 | 40 | if $prefix |
| 44 | 40 | 120 | unless $prefix |
| 105 | 1 | 8 | if ($self->{'-signature'}) { } |
| 118 | 0 | 9 | $self->{'-divisions'} == 8 ? : |
| 124 | 1 | 8 | unless ($x =~ /\./) |
| 130 | 9 | 63 | if ({"e" => {"name" => "eighth","number" => 8,"ordinal" => "8th"},"h" => {"name" => "half","number" => 2,"ordinal" => "2nd"},"q" => {"name" => "quarter","number" => 4,"ordinal" => "4th"},"s" => {"name" => "sixteenth","number" => 16,"ordinal" => "16th"},"w" => {"name" => "whole","number" => 1,"ordinal" => "1st"},"x" => {"name" => "thirtysecond","number" => 32,"ordinal" => "32nd"},"y" => {"name" => "sixtyfourth","number" => 64,"ordinal" => "64th"},"z" => {"name" => "onetwentyeighth","number" => 128,"ordinal" => "128th"}}->{$note}{'number'} == $self->{'-divisions'}) |
| 151 | 2 | 1 | if @_ |
| 156 | 0 | 0 | if @_ |
| 162 | 0 | 9 | if @_ |
| 168 | 0 | 9 | if @_ |
| 174 | 8 | 0 | if @_ |
| 180 | 0 | 17 | if @_ |
| 185 | 1 | 1 | if @_ |
| 190 | 1 | 21 | if @_ |
| 195 | 1 | 5 | if @_ |
| 200 | 1 | 1 | if @_ |
| 205 | 1 | 77 | if @_ |
| 210 | 1 | 2 | if @_ |
| 215 | 2 | 1 | if (@_) |
| 225 | 9 | 3 | if @_ |
| 230 | 1 | 1 | if @_ |
| 238 | 0 | 21 | if ref $_[0] eq "MIDI::Simple" |
| 257 | 1 | 10 | if @_ |
| 263 | 10 | 1 | if $accent > $MIDI::Simple::Volume{'fff'} |
| 271 | 0 | 0 | if @_ |
| 277 | 0 | 0 | if $duck > $MIDI::Simple::Volume{'ppp'} |
| 296 | 52 | 133 | if (not @_) { } |
| 122 | 11 | elsif (@_ == 1) { } | |
| 11 | 0 | elsif (@_ > 1 and not @_ % 2) { } | |
| 303 | 0 | 122 | wantarray ? : |
| 318 | 0 | 11 | @t > 1 ? : |
| 0 | 11 | wantarray ? : | |
| 330 | 0 | 1 | wantarray ? : |
| 338 | 1 | 56 | if @_ |
| 357 | 118 | 21 | @_ ? : |
| 362 | 95 | 44 | wantarray ? : |
| 369 | 60 | 1 | @_ ? : |
| 400 | 1 | 7 | $args{'-beat'} == 1 && $args{'-fill'} ? : |
| 406 | 0 | 8 | wantarray ? : |
| 423 | 2 | 1 | @_ ? : |
| 428 | 9 | 23 | if $i % $self->beats == 1 |
| 434 | 9 | 23 | if $i % $self->beats == 1 |
| 459 | 0 | 25 | unless ref $self->patterns eq "HASH" |
| 464 | 0 | 25 | unless @k |
| 468 | 3 | 22 | $args{'-name'} && $args{'-type'} && !($args{'-name'} =~ /^.+\s+$args{'-type'}$/) ? : |
| 470 | 0 | 25 | if (@k == 1) { } |
| 477 | 15 | 13 | if ($args{'-type'}) |
| 480 | 9 | 6 | unless $t eq $args{'-type'} |
| 512 | 7 | 0 | -e $file ? : |