| line | % | coverage | branch |
|---|
| 194 | 50 | T | F | unless defined $args |
| 200 | 100 | T | F | defined $warnings_fh ? : |
| 290 | 50 | T | F | unless defined $args |
| 296 | 100 | T | F | unless -f $in |
| 299 | 100 | T | F | if (not $args->{'overwrite'} and -f $output) |
| 395 | 50 | T | F | unless defined $args |
| 422 | 100 | T | F | if ($@ or not defined $ok) { } |
| 423 | 100 | T | F | if $@ |
| 459 | 100 | T | F | if ($@) |
| 467 | 50 | T | F | if ($@) |
| 474 | 100 | T | F | if ($self->{'_validate'}) |
| 483 | 100 | T | F | if ($@) |
| 491 | 50 | T | F | if ($@) |
| 509 | 50 | T | F | if $@ |
| 511 | 50 | T | F | unless &Music::NWC2MusicXML::open(my $fh, ">:encoding(UTF-8)", $output) |
| 536 | 50 | T | F | unless defined $args |
| 542 | 50 | T | F | unless (defined $args->{'output_dir'}) |
| 546 | 100 | T | F | if ($args->{'recursive'} and defined $args->{'base_dir'}) |
| 552 | 100 | T | F | if grep {$_ eq "..";} "File::Spec"->splitdir($rel) |
| 561 | 50 | T | F | unless exists $MESSAGES{$key} |