Branch Coverage

blib/lib/MIDI/Score.pm
Criterion Covered Total %
branch 32 62 51.6


line true false branch
258 0 3 unless ref $score_r
263 0 46 unless ref $note_r
264 38 8 if ($$note_r[0] eq 'note') { }
288 0 84 unless ref $event and @$event
293 1 2 if wantarray
316 84 0 if ref $note_r
351 0 6 unless $events_r
353 0 6 ref $_[1] ? :
356 0 6 if ($$options_r{'no_note_abstraction'}) { }
360 0 0 if ref $event_r
362 0 0 if wantarray
369 0 112 if (not ref $_) { }
374 112 0 if ref $_
376 42 70 if ($$_[0] eq 'note_off' or $$_[0] eq 'note_on' and $$_[4] == 0) { }
42 28 elsif ($$_[0] eq 'note_on') { }
382 42 0 if (exists $note{pack 'CC', @{$_;}[2, 3]} and @{$note{pack 'CC', @{$_;}[2, 3]};})
384 41 1 unless (@{$note{pack 'CC', @{$_;}[2, 3]};})
412 0 6 if wantarray
429 0 2 unless ref $score_r
432 0 31 unless @$event_r
433 20 11 $$event_r[0] eq 'note' ? :
436 22 9 if $event_end_time > $track_time
453 27 0 if @$note_r
478 1 0 ref $_[1] eq 'HASH' ? :
480 0 1 if ($grid < 1)
488 20 5 if ($qd and $$n_event_r[0] eq 'note')
522 0 0 ref $_[1] eq 'HASH' ? :
530 0 0 if ($$event_r[$typeidx] eq 'note') { }
538 0 0 if ($onset >= $$lev[$stidx] + $$lev[$duridx]) { }
0 0 elsif ($clip) { }
543 0 0 if ($$ev[$pitchidx] > $$lev[$pitchidx])