| line | % | coverage | branch |
|---|
| 511 | 50 | T | F | unless defined $args |
| 637 | 100 | T | F | unless &blessed($score) and $score->isa("Music::NWC2MusicXML::Score") |
| 640 | 100 | T | F | unless $score->staff_count > 0 |
| 747 | 50 | T | F | unless length($font->{'typeface'} // "") |
| 749 | 100 | T | F | if ($style eq 'StaffLyric' and not defined $lyric_font) { } |
| 100 | T | F | elsif ($style =~ /\AStaff/i and not defined $word_font) { } |
| 757 | 100 | T | F | unless defined $font |
| 759 | 50 | T | F | $font->{'size'} ? : |
| 760 | 100 | T | F | $font->{'bold'} ? : |
| 761 | 100 | T | F | $font->{'italic'} ? : |
| 779 | 100 | T | F | if $meta->{'Title'} |
| 791 | 100 | T | F | if $meta->{'Author'} |
| 794 | 50 | T | F | if $meta->{'Lyricist'} |
| 798 | 100 | T | F | if (defined $meta->{'Copyright1'} or defined $meta->{'Copyright2'}) { } |
| 50 | T | F | elsif (defined $meta->{'Copyright'} and length $meta->{'Copyright'}) { } |
| 800 | 50 | T | F | if defined $meta->{'Copyright1'} and length $meta->{'Copyright1'} |
| 802 | 100 | T | F | if defined $meta->{'Copyright2'} and length $meta->{'Copyright2'} |
| 806 | 100 | T | F | if @cr_lines |
| 811 | 50 | T | F | if (defined $meta->{'Comments'} and length($meta->{'Comments'} // "")) |
| 833 | 100 | T | F | if (defined $meta->{'Title'} and length $meta->{'Title'}) |
| 845 | 100 | T | F | if (defined $meta->{'Author'} and length $meta->{'Author'}) |
| 860 | 100 | T | F | if (defined $meta->{'Copyright1'} or defined $meta->{'Copyright2'}) { } |
| 50 | T | F | elsif (defined $meta->{'Copyright'} and length $meta->{'Copyright'}) { } |
| 862 | 50 | T | F | if defined $meta->{'Copyright1'} and length $meta->{'Copyright1'} |
| 864 | 100 | T | F | if defined $meta->{'Copyright2'} and length $meta->{'Copyright2'} |
| 912 | 100 | T | F | $staff->{'_visible'} // 1 ? : |
| 915 | 100 | T | F | if ($instr and $instr->{'name'}) |
| 920 | 100 | T | F | if (defined $instr->{'patch'}) |
| 956 | 100 | T | F | if ($flags{$sym}) { } |
| 958 | 50 | T | F | $flags{'ConnectBars'} ? : |
| 963 | 50 | T | F | unless $cf{$sym} |
| 966 | 50 | T | F | if $i > $start |
| 1012 | 100 | T | F | $freq{$cand} > 1 ? : |
| 1026 | 100 | T | F | if length $name and not $name =~ /^Staff(?:-\d+)?$/i |
| 1031 | 100 | T | F | if defined $instr->{'name'} and length $instr->{'name'} |
| 1081 | 100 | T | F | if ($type eq 'Bar') { } |
| 100 | T | F | elsif ($type eq 'Clef') { } |
| 100 | T | F | elsif ($type eq 'Key') { } |
| 1106 | 100 | T | F | if (@pending or $measure_no == 1) |
| 1135 | 100 | T | F | if ($prev_bar eq "MasterRepeatOpen" or $prev_bar eq "LocalRepeatOpen") |
| 1142 | 100 | T | F | if ($is_first) |
| 1146 | 100 | T | F | if (defined $vol or defined $pan) |
| 1148 | 50 | T | F | if defined $vol |
| 1149 | 50 | T | F | if defined $pan |
| 1150 | 50 | T | F | if @sa |
| 1158 | 100 | T | F | if ($type eq 'TimeSig') { } |
| 100 | T | F | elsif ($type eq 'Clef') { } |
| 100 | T | F | elsif ($type eq 'Key') { } |
| 100 | T | F | elsif ($type eq 'Tempo') { } |
| 100 | T | F | elsif ($type eq 'Dynamic') { } |
| 100 | T | F | elsif ($type eq 'DynVariance') { } |
| 100 | T | F | elsif ($type eq 'TempoVariance') { } |
| 50 | T | F | elsif ($type eq 'Text') { } |
| 50 | T | F | elsif ($type eq 'FlowControl') { } |
| 50 | T | F | elsif ($type eq 'Instrument') { } |
| 100 | T | F | elsif ($type eq 'Note') { } |
| 100 | T | F | elsif ($type eq 'Rest') { } |
| 100 | T | F | elsif ($type eq 'Chord') { } |
| 1187 | 100 | T | F | if ($d->{'style'} // "") eq "Fermata" |
| 1207 | 100 | T | F | if $ev_ann->{'wedge_start'} |
| 1211 | 100 | T | F | if $ev_ann->{'wedge_stop_after'} |
| 1214 | 50 | T | F | if $ev_ann->{'wedge_start'} |
| 1217 | 50 | T | F | if $ev_ann->{'wedge_stop_after'} |
| 1220 | 100 | T | F | if $ev_ann->{'wedge_start'} |
| 1224 | 100 | T | F | if $ev_ann->{'wedge_stop_after'} |
| 1228 | 100 | T | F | if ($bar_style eq 'MasterRepeatClose') { } |
| 100 | T | F | elsif ($bar_style eq 'Double') { } |
| 100 | T | F | elsif ($bar_style eq 'SectionClose' or $bar_style eq 'LocalRepeatClose') { } |
| 1274 | 100 | T | F | unless $type eq "Note" or $type eq "Chord" or $type eq "Rest" |
| 1279 | 100 | T | F | unless ($type eq "Rest") |
| 1282 | 100 | T | F | $type eq 'Chord' ? : |
| 1287 | 100 | T | F | if (delete $pending_tie{$pk}) |
| 1290 | 100 | T | F | if ($ps =~ /\^\z/) |
| 1299 | 100 | T | F | if $type eq "Rest" |
| 1303 | 100 | T | F | if ($has_slur) { } |
| 1304 | 100 | T | F | unless ($in_slur) |
| 1312 | 100 | T | F | if ($in_slur) |
| 1324 | 100 | T | F | if $in_slur and defined $last_slur_ev |
| 1338 | 100 | T | F | if ($type eq 'Note' or $type eq 'Chord') { } |
| 50 | T | F | elsif ($type eq 'Lyric' and defined $last_note_key) { } |
| 1366 | 100 | T | F | unless $type eq "Note" or $type eq "Rest" or $type eq "Chord" |
| 1371 | 100 | T | F | $opts->{'Diminuendo'} ? : |
| 100 | T | F | $opts->{'Crescendo'} ? : |
| 1374 | 100 | T | F | if (defined $wedge_now and !defined($ev_wedge) || $ev_wedge ne $wedge_now) |
| 1375 | 50 | T | F | if defined $prev_wedge_key |
| 1378 | 100 | T | F | if (not defined $wedge_now and defined $ev_wedge) |
| 1383 | 100 | T | F | defined $ev_wedge ? : |
| 1387 | 100 | T | F | if defined $wedge_now and defined $prev_wedge_key |
| 1404 | 100 | T | F | if ($type eq 'Note' or $type eq 'Rest' or $type eq 'Chord') { } |
| 100 | T | F | elsif ($type eq 'TempoVariance' and ($ev->data->{'style'} // '') eq 'Fermata') { } |
| 1405 | 100 | T | F | if ($pending_fermata) |
| 1434 | 100 | T | F | if (defined $pitch->{'accidental'}) { } |
| 100 | T | F | elsif (exists $bar_accidentals->{$pitch_key}) { } |
| 1452 | 100 | T | F | if $is_chord_member |
| 1453 | 100 | T | F | if $d->{'is_grace'} |
| 1456 | 100 | T | F | if $pitch->{'alter'} |
| 1459 | 100 | T | F | unless ($d->{'is_grace'}) |
| 1462 | 100 | T | F | if $tie_stop |
| 1463 | 100 | T | F | if $tie_start |
| 1469 | 100 | T | F | if $pitch->{'accidental'} |
| 1473 | 100 | T | F | if $tie_stop |
| 1474 | 100 | T | F | if $tie_start |
| 1475 | 100 | T | F | if $slur_stop |
| 1476 | 100 | T | F | if $slur_start |
| 1477 | 100 | T | F | if not $is_chord_member and $ev_ann->{'fermata'} |
| 1481 | 100 | T | F | !$is_chord_member ? : |
| 1483 | 100 | T | F | if (@artic_tokens) |
| 1487 | 100 | T | F | unless (defined $map) |
| 1491 | 100 | T | F | if ($map->{'group'} eq 'articulations') { } |
| 100 | T | F | elsif ($map->{'group'} eq 'ornaments') { } |
| 1495 | 100 | T | F | if (@artic_els) |
| 1500 | 100 | T | F | if (@ornament_els) |
| 1508 | 100 | T | F | if (@nots) |
| 1515 | 100 | T | F | unless ($is_chord_member) |
| 1547 | 100 | T | F | if ($ev_ann->{'fermata'}) |
| 1578 | 100 | T | F | $first ? : |
| 1626 | 50 | T | F | if ($pos_str =~ /\A([#bnx]*)(-?\d+)\^?\z/) |
| 1641 | 100 | T | F | if (my $acc = $ACCIDENTAL_MAP{$acc_prefix}) { } |
| 1653 | 100 | T | F | unless $key_fifths |
| 1656 | 100 | T | F | $key_fifths > 0 ? : |
| 1659 | 100 | T | F | abs $key_fifths > 7 ? : |
| 1661 | 100 | T | F | if $steps->[$k] == $step_i |
| 1685 | 100 | T | F | if (length $text) |
| 1690 | 100 | T | F | length $text ? : |
| 1694 | 100 | T | F | if $dot |
| 1709 | 100 | T | F | unless (exists $DYNAMIC_MAP{$marking}) |
| 1710 | 100 | T | F | if $marking ne "" |
| 1714 | 100 | T | F | lc $placement eq 'above' ? : |
| 1723 | 100 | T | F | if (defined $dyn_vel and defined $dyn_vel->{$marking}) |
| 1746 | 100 | T | F | unless defined $wedge_type |
| 1748 | 100 | T | F | lc $placement eq 'above' ? : |
| 1771 | 100 | T | F | unless defined $text |
| 1773 | 50 | T | F | lc $placement eq 'above' ? : |
| 1801 | 50 | T | F | unless length $text |
| 1803 | 50 | T | F | lc $placement eq 'above' ? : |
| 1817 | 0 | T | F | unless length $text |
| 1819 | 0 | T | F | lc $placement eq 'above' ? : |
| 1833 | 0 | T | F | unless defined $map |
| 1837 | 0 | T | F | if (defined $map->{'element'}) |
| 1842 | 0 | T | F | if (defined $map->{'words'}) |
| 1856 | 0 | T | F | $name ? : |
| 1892 | 50 | T | F | if defined $clef->{'line'} |
| 1920 | 100 | T | F | if (my $key = $staff->initial_key) |
| 1926 | 100 | T | F | if (my $ts = $staff->initial_timesig) |
| 1933 | 100 | T | F | if (my $clef_name = $staff->initial_clef) |
| 1936 | 100 | T | F | unless (defined $clef) |
| 1942 | 100 | T | F | if defined $clef->{'line'} |
| 1947 | 50 | T | F | if ($trans) |
| 1972 | 50 | T | F | if $d > 0 |
| 1976 | 100 | T | F | unless %seen_denoms |
| 2003 | 100 | T | F | unless defined $s |
| 2024 | 50 | T | F | unless exists $MESSAGES{$key} |