Branch Coverage

blib/lib/MIDI/Trans.pm
Criterion Covered Total %
branch 0 110 0.0


line true false branch
73 0 0 if defined $$opt_HR{"$key"}
83 0 0 unless defined $_[0]
85 0 0 if ($self->raise_error) { }
97 0 0 if defined $_[0]
106 0 0 if defined $_[0]
114 0 0 if defined $_[0]
121 0 0 if defined $_[0]
128 0 0 if defined $_[0]
137 0 0 if (not defined $hRef or ref $hRef ne 'HASH')
147 0 0 if (exists $$hRef{'File'} and defined $$hRef{'File'}) { }
0 0 elsif (exists $$hRef{'String'} and defined $$hRef{'String'}) { }
151 0 0 if (open TRFH, $file) { }
161 0 0 if length $data < 1
171 0 0 if length $data < 1
177 0 0 if defined $file
178 0 0 unless defined $file
182 0 0 if ($self->all_attributes) { }
241 0 0 if defined $_[0]
250 0 0 if defined $_[0]
258 0 0 if defined $_[0]
266 0 0 if defined $_[0]
274 0 0 if defined $_[0]
282 0 0 if defined $_[0]
290 0 0 if defined $_[0]
299 0 0 if defined $_[0]
307 0 0 if defined $_[0]
317 0 0 $val < int($val) + 0.5 ? :
328 0 0 unless defined $name
334 0 0 if $$hRef{'Name'} eq $name
345 0 0 if defined $_[0]
353 0 0 if defined $_[0]
366 0 0 if ($#{$$self{'OpenFiles'};} < 0)
371 0 0 if (exists $$hRef{'Name'} and defined $$hRef{'Name'}) { }
0 0 elsif (exists $$hRef{'Num'} and defined $$hRef{'Num'}) { }
374 0 0 unless (defined $num)
380 0 0 unless (defined $$self{'OpenFiles'}[$num])
392 0 0 if (defined $self->tempo_callback)
424 0 0 unless defined $num and defined $note and defined $vol and defined $dur
426 0 0 unless exists $$self{'Events'}{$num}
437 0 0 unless defined $num
439 0 0 unless (defined $$self{'Events'}{$num})
459 0 0 if $#{$eRef;} < 0
460 0 0 if ($$eRef[0] eq 'rest') { }
483 0 0 unless (defined $file and defined $scoreObj)
490 0 0 if ($@)
512 0 0 unless (defined $file)
517 0 0 if (not defined $dur_c && defined $note_c && defined $vol_c) { }
0 0 elsif (not defined $tempo_c || defined $tempo) { }
533 0 0 unless (defined $new_object)
540 0 0 unless defined $tempo
541 0 0 if defined $tempo
543 0 0 if ($new_object->read_corpus({'File', "$file"})) { }
544 0 0 if ($new_object->process({'Name', "$file"})) { }
546 0 0 if (defined $scoreObj) { }
547 0 0 if ($new_object->write_file($file_o, $scoreObj)) { }