| line | % | coverage | branch |
|---|
| 178 | 50 | T | F | unless defined $args |
| 184 | 100 | T | F | defined $warnings_fh ? : |
| 274 | 50 | T | F | unless defined $args |
| 280 | 100 | T | F | unless -f $in |
| 283 | 100 | T | F | if (not $args->{'overwrite'} and -f $output) |
| 379 | 50 | T | F | unless defined $args |
| 406 | 100 | T | F | if ($@ or not defined $ok) { } |
| 407 | 100 | T | F | if $@ |
| 443 | 100 | T | F | if ($@) |
| 451 | 50 | T | F | if ($@) |
| 458 | 100 | T | F | if ($self->{'_validate'}) |
| 467 | 100 | T | F | if ($@) |
| 475 | 50 | T | F | if ($@) |
| 493 | 50 | T | F | if $@ |
| 495 | 50 | T | F | unless &Music::NWC2MusicXML::open(my $fh, ">:encoding(UTF-8)", $output) |
| 520 | 50 | T | F | unless defined $args |
| 526 | 50 | T | F | unless (defined $args->{'output_dir'}) |
| 530 | 100 | T | F | if ($args->{'recursive'} and defined $args->{'base_dir'}) |
| 536 | 100 | T | F | if grep {$_ eq "..";} "File::Spec"->splitdir($rel) |
| 545 | 50 | T | F | unless exists $MESSAGES{$key} |