blib/lib/Music/Canon.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 19 | 41 | 46.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
167 | 85 | 0 | 0 | &blessed($e) and $e->can('pitch') |
256 | 271 | 0 | 0 | &blessed($obj) and $obj->can('pitch') |
271 | 41 | 226 | 4 | defined $prev_in and $pitch == $prev_in |
334 | 41 | 112 | 114 | defined $prev_in and $pitch - $prev_in < 0 |
440 | 17 | 0 | 0 | not defined $output_pitch and $self->has_modal_out |
473 | 0 | 0 | 65 | &looks_like_number($n) and $n =~ /^[+]?[0-9]+$/ |
513 | 0 | 0 | 6 | &looks_like_number($n) and $n =~ /^[+]?[0-9]+$/ |
line | l | !l | condition |
---|---|---|---|
185 | 0 | 0 | $self->pitchnum($trans) // die("pitchnum failed to parse '${trans}'\n") |
231 | 18 | 0 | $self->pitchnum($self->modal_in) // die(q[pitchnum could not convert modal_in '], $self->modal_in, "' to a pitch number\n") |
236 | 18 | 0 | $self->pitchnum($self->modal_out) // die(q[pitchnum could not convert modal_out '], $self->modal_out, "' to a pitch number\n") |
292 | 1 | 0 | $self->pitchnum($trans) // die('pitchnum failed to parse ' . $self->transpose . "\n") |
434 | 17 | 0 | $self->pitchnum($input_pitch) // die("pitchnum failed to parse $input_pitch\n") |
445 | 17 | 0 | $self->pitchnum($output_pitch) // die("pitchnum failed to parse $output_pitch\n") |
540 | 40 | 0 | &sum(@$ref) // 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
463 | 22 | 0 | 0 | defined $asc or defined $dsc |
558 | 0 | 0 | 272 | not defined $scale or ref $scale ne 'ARRAY' |