Branch Coverage

blib/lib/MIDI/Score.pm
Criterion Covered Total %
branch 40 62 64.5


line true false branch
257 0 5 unless ref $score_r
262 0 98 unless ref $note_r
263 48 50 if ($note_r->[0] eq 'note') { }
287 0 146 unless ref $event and @$event
292 1 4 if wantarray
315 173 0 if ref $note_r
350 0 10 unless $events_r
352 0 10 ref $_[1] ? :
355 0 10 if ($options_r->{'no_note_abstraction'}) { }
359 0 0 if ref $event_r
361 0 0 if wantarray
368 0 207 if (not ref $_) { }
373 207 0 if ref $_
375 58 149 if ($_->[0] eq 'note_off' or $_->[0] eq 'note_on' and $_->[4] == 0) { }
58 91 elsif ($_->[0] eq 'note_on') { }
381 58 0 if (exists $note{pack "CC", @{$_;}[2, 3]} and @{$note{pack "CC", @{$_;}[2, 3]};})
383 57 1 unless (@{$note{pack "CC", @{$_;}[2, 3]};})
411 0 10 if wantarray
428 0 2 unless ref $score_r
431 0 31 unless @$event_r
432 20 11 $event_r->[0] eq 'note' ? :
435 22 9 if $event_end_time > $track_time
452 27 0 if @$note_r
477 1 0 ref $_[1] eq 'HASH' ? :
479 0 1 if ($grid < 1)
487 20 5 if ($qd and $n_event_r->[0] eq "note")
520 1 0 ref $_[1] eq 'HASH' ? :
528 6 21 if ($event_r->[$typeidx] eq 'note') { }
536 3 3 if ($onset >= $lev->[$stidx] + $lev->[$duridx]) { }
3 0 elsif ($clip) { }
541 1 2 if ($ev->[$pitchidx] > $lev->[$pitchidx])