| line | % | coverage | branch |
|---|
| 155 | 50 | T | F | unless defined $args |
| 247 | 100 | T | F | unless defined $nwctxt and length $nwctxt |
| 261 | 100 | T | F | unless defined $header and index($header, $HEADER_PREFIX) == 0 |
| 272 | 100 | T | F | unless defined $line and length $line |
| 273 | 100 | T | F | if $line =~ /\A\s*\z/ |
| 276 | 100 | T | F | if ++$self->{'_record_count'} > $MAX_RECORDS |
| 279 | 100 | T | F | unless $line =~ /\A\|/ |
| 334 | 50 | T | F | unless defined $fields and @$fields |
| 338 | 100 | T | F | if (exists $DISPATCH{$type}) { } |
| 342 | 100 | T | F | if (defined $staff) |
| 372 | 50 | T | F | if substr($line, 0, 1) eq "|" |
| 380 | 100 | T | F | if ($in_quote) { } |
| 381 | 100 | T | F | if ($ch eq '"') { } |
| 100 | T | F | elsif ($ch eq '\\' and $pos + 1 < $len) { } |
| 391 | 100 | T | F | if ($ch eq '"') { } |
| 100 | T | F | elsif ($ch eq '|') { } |
| 414 | 100 | T | F | if ($field =~ /\A([^:]+):(.*)\z/) { } |
| 435 | 50 | T | F | defined $h->{'Size'} ? : |
| 100 | T | F | ($h->{'Bold'} // 'N') eq 'Y' ? : |
| 100 | T | F | ($h->{'Italic'} // 'N') eq 'Y' ? : |
| 444 | 100 | T | F | if exists $h->{$key} |
| 469 | 50 | T | F | ($h->{'Visible'} // 'Y') eq 'Y' ? : |
| 472 | 100 | T | F | if defined $h->{'Channel'} |
| 473 | 100 | T | F | if defined $h->{'WithNextStaff'} |
| 474 | 100 | T | F | if defined $h->{'Volume'} |
| 475 | 100 | T | F | if defined $h->{'StereoPan'} |
| 476 | 50 | T | F | ($h->{'Muted'} // 'N') eq 'Y' ? : |
| 488 | 100 | T | F | if (defined $h->{'DynVel'} and length $h->{'DynVel'}) |
| 491 | 50 | T | F | if (@vels == @keys) |
| 508 | 50 | T | F | unless (exists $VALID_CLEFS{$type}) |
| 513 | 100 | T | F | if (not $staff->has_notes) { } |
| 535 | 100 | T | F | if (not $staff->has_notes) { } |
| 551 | 100 | T | F | unless (defined $beats and defined $beat_type) |
| 559 | 100 | T | F | if (not $staff->has_notes) { } |
| 674 | 100 | T | F | if ($tok eq 'Dotted') { } |
| 100 | T | F | elsif ($tok eq 'DblDotted') { } |
| 100 | T | F | elsif ($tok =~ /\ATriplet(?:=(.+))?\z/) { } |
| 50 | T | F | elsif ($tok eq 'Grace') { } |
| 686 | 100 | T | F | unless defined $opts_str and length $opts_str |
| 689 | 100 | T | F | if ($opt =~ /\A(\w+)=(.*)\z/) { } |
| 735 | 0 | T | F | $ends_h ? : |
| 0 | T | F | $starts_h ? : |
| 0 | T | F | $starts_h && $ends_h ? : |
| 804 | 50 | T | F | $pos >= 0 ? : |
| 848 | 100 | T | F | unless defined $staff |
| 859 | 100 | T | F | unless defined $sig and length $sig |
| 860 | 100 | T | F | if $sig eq $KEY_SIG_NATURAL |
| 865 | 50 | T | F | unless @acc |
| 867 | 100 | T | F | if (index($acc[0], '#') != -1) { } |
| 100 | T | F | elsif (substr($acc[0], -1, 1) eq 'b') { } |
| 877 | 50 | T | F | unless exists $MESSAGES{$key} |