| 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 | 76 | 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 | 183 | if (not @_) { } |
| 172 | 11 | elsif (@_ == 1) { } | |
| 11 | 0 | elsif (@_ > 1 and not @_ % 2) { } | |
| 303 | 0 | 172 | wantarray ? : |
| 318 | 0 | 11 | @t > 1 ? : |
| 0 | 11 | wantarray ? : | |
| 330 | 0 | 1 | wantarray ? : |
| 338 | 1 | 114 | if @_ |
| 357 | 167 | 21 | @_ ? : |
| 362 | 144 | 44 | wantarray ? : |
| 369 | 118 | 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 | 13 | 14 | if ($args{'-type'}) |
| 480 | 7 | 6 | unless $t eq $args{'-type'} |
| 512 | 7 | 0 | -e $file ? : |