Branch Coverage

File:blib/lib/Music/NWC2MusicXML/MusicXML.pm
Coverage:85.6%

line%coveragebranch
47550TFunless defined $args
599100TFunless &blessed($score) and $score->isa("Music::NWC2MusicXML::Score")
602100TFunless $score->staff_count > 0
70950TFunless length($font->{'typeface'} // "")
711100TFif ($style eq 'StaffLyric' and not defined $lyric_font) { }
100TFelsif ($style =~ /\AStaff/i and not defined $word_font) { }
719100TFunless defined $font
72150TF$font->{'size'} ? :
722100TF$font->{'bold'} ? :
723100TF$font->{'italic'} ? :
741100TFif $meta->{'Title'}
753100TFif $meta->{'Author'}
75650TFif $meta->{'Lyricist'}
760100TFif (defined $meta->{'Copyright1'} or defined $meta->{'Copyright2'}) { }
50TFelsif (defined $meta->{'Copyright'} and length $meta->{'Copyright'}) { }
76250TFif defined $meta->{'Copyright1'} and length $meta->{'Copyright1'}
764100TFif defined $meta->{'Copyright2'} and length $meta->{'Copyright2'}
768100TFif @cr_lines
77350TFif (defined $meta->{'Comments'} and length($meta->{'Comments'} // ""))
795100TFif (defined $meta->{'Title'} and length $meta->{'Title'})
807100TFif (defined $meta->{'Author'} and length $meta->{'Author'})
822100TFif (defined $meta->{'Copyright1'} or defined $meta->{'Copyright2'}) { }
50TFelsif (defined $meta->{'Copyright'} and length $meta->{'Copyright'}) { }
82450TFif defined $meta->{'Copyright1'} and length $meta->{'Copyright1'}
826100TFif defined $meta->{'Copyright2'} and length $meta->{'Copyright2'}
874100TF$staff->{'_visible'} // 1 ? :
877100TFif ($instr and $instr->{'name'})
882100TFif (defined $instr->{'patch'})
918100TFif ($flags{$sym}) { }
92050TF$flags{'ConnectBars'} ? :
92550TFunless $cf{$sym}
92850TFif $i > $start
974100TF$freq{$cand} > 1 ? :
988100TFif length $name and not $name =~ /^Staff(?:-\d+)?$/i
993100TFif defined $instr->{'name'} and length $instr->{'name'}
1042100TFif ($type eq 'Bar') { }
100TFelsif ($type eq 'Clef') { }
100TFelsif ($type eq 'Key') { }
1067100TFif (@pending or $measure_no == 1)
1096100TFif ($prev_bar eq "MasterRepeatOpen" or $prev_bar eq "LocalRepeatOpen")
1103100TFif ($is_first)
1107100TFif (defined $vol or defined $pan)
110950TFif defined $vol
111050TFif defined $pan
111150TFif @sa
1119100TFif ($type eq 'TimeSig') { }
100TFelsif ($type eq 'Clef') { }
100TFelsif ($type eq 'Key') { }
100TFelsif ($type eq 'Tempo') { }
100TFelsif ($type eq 'Dynamic') { }
100TFelsif ($type eq 'DynVariance') { }
100TFelsif ($type eq 'TempoVariance') { }
50TFelsif ($type eq 'Text') { }
50TFelsif ($type eq 'FlowControl') { }
50TFelsif ($type eq 'Instrument') { }
100TFelsif ($type eq 'Note') { }
100TFelsif ($type eq 'Rest') { }
100TFelsif ($type eq 'Chord') { }
1167100TFif $ev_ann->{'wedge_start'}
1171100TFif $ev_ann->{'wedge_stop_after'}
117450TFif $ev_ann->{'wedge_start'}
117750TFif $ev_ann->{'wedge_stop_after'}
1180100TFif $ev_ann->{'wedge_start'}
1184100TFif $ev_ann->{'wedge_stop_after'}
1188100TFif ($bar_style eq 'MasterRepeatClose') { }
100TFelsif ($bar_style eq 'Double') { }
100TFelsif ($bar_style eq 'SectionClose' or $bar_style eq 'LocalRepeatClose') { }
1234100TFunless $type eq "Note" or $type eq "Chord" or $type eq "Rest"
1239100TFunless ($type eq "Rest")
1242100TF$type eq 'Chord' ? :
1247100TFif (delete $pending_tie{$pk})
1250100TFif ($ps =~ /\^\z/)
1259100TFif $type eq "Rest"
1263100TFif ($has_slur) { }
1264100TFunless ($in_slur)
1274100TFif ($in_slur)
1283100TFif $in_slur and defined $last_slur_ev
1297100TFif ($type eq 'Note' or $type eq 'Chord') { }
50TFelsif ($type eq 'Lyric' and defined $last_note_key) { }
1325100TFunless $type eq "Note" or $type eq "Rest" or $type eq "Chord"
1330100TF$opts->{'Diminuendo'} ? :
100TF$opts->{'Crescendo'} ? :
1333100TFif (defined $wedge_now and !defined($ev_wedge) || $ev_wedge ne $wedge_now)
133450TFif defined $prev_wedge_key
1337100TFif (not defined $wedge_now and defined $ev_wedge)
1342100TFdefined $ev_wedge ? :
1346100TFif defined $wedge_now and defined $prev_wedge_key
1369100TFif (defined $pitch->{'accidental'}) { }
100TFelsif (exists $bar_accidentals->{$pitch_key}) { }
1387100TFif $is_chord_member
1388100TFif $d->{'is_grace'}
1391100TFif $pitch->{'alter'}
1394100TFunless ($d->{'is_grace'})
1397100TFif $tie_stop
1398100TFif $tie_start
1404100TFif $pitch->{'accidental'}
1408100TFif $tie_stop
1409100TFif $tie_start
1410100TFif $slur_stop
1411100TFif $slur_start
1415100TF!$is_chord_member ? :
1417100TFif (@artic_tokens)
1421100TFunless (defined $map)
1425100TFif ($map->{'group'} eq 'articulations') { }
100TFelsif ($map->{'group'} eq 'ornaments') { }
1429100TFif (@artic_els)
1434100TFif (@ornament_els)
1442100TFif (@nots)
1449100TFunless ($is_chord_member)
1506100TF$first ? :
155450TFif ($pos_str =~ /\A([#bnx]*)(-?\d+)\^?\z/)
1569100TFif (my $acc = $ACCIDENTAL_MAP{$acc_prefix}) { }
1581100TFunless $key_fifths
1584100TF$key_fifths > 0 ? :
1587100TFabs $key_fifths > 7 ? :
1589100TFif $steps->[$k] == $step_i
1615100TFif $dot
1630100TFunless (exists $DYNAMIC_MAP{$marking})
1631100TFif $marking ne ""
1635100TFlc $placement eq 'above' ? :
1644100TFif (defined $dyn_vel and defined $dyn_vel->{$marking})
1666100TFunless defined $wedge_type
1668100TFlc $placement eq 'above' ? :
169550TFunless length $text
169750TFlc $placement eq 'above' ? :
17110TFunless length $text
17130TFlc $placement eq 'above' ? :
17270TFunless defined $map
17310TFif (defined $map->{'element'})
17360TFif (defined $map->{'words'})
17500TF$name ? :
178650TFif defined $clef->{'line'}
1814100TFif (my $key = $staff->initial_key)
1820100TFif (my $ts = $staff->initial_timesig)
1827100TFif (my $clef_name = $staff->initial_clef)
1830100TFunless (defined $clef)
1836100TFif defined $clef->{'line'}
184150TFif ($trans)
186650TFif $d > 0
1870100TFunless %seen_denoms
1897100TFunless defined $s
191850TFunless exists $MESSAGES{$key}