| line |
true |
false |
branch |
|
69
|
2 |
0 |
@_ ? : |
|
72
|
2 |
0 |
if $test |
|
74
|
2 |
0 |
if (defined $output) { } |
|
75
|
2 |
0 |
if $test |
|
76
|
2 |
0 |
if $test |
|
79
|
0 |
0 |
if $test |
|
87
|
2 |
0 |
if $test |
|
90
|
0 |
56 |
if /^\s*#/ |
|
91
|
0 |
56 |
if $lilypond and /^\s*%/ |
|
92
|
31 |
25 |
if $lilypond |
|
93
|
10 |
46 |
unless /\S/ |
|
97
|
12 |
34 |
if (/^!\s*(.*)/) |
|
102
|
0 |
34 |
if (/^\s*\[/) { } |
|
|
0 |
34 |
elsif ($linetype == 2) { } |
|
105
|
0 |
0 |
if $@ |
|
116
|
30 |
4 |
if (/^\s*\|/) { } |
|
|
3 |
2 |
elsif ($linetype == 1 and /^%?[-+=<]/) { } |
|
117
|
25 |
5 |
if $linetype |
|
128
|
1 |
3 |
if (/^%?=(.*)/) |
|
133
|
3 |
0 |
if (/^%?-(.*)/) |
|
138
|
0 |
0 |
if (/^%?\+(.*)/) |
|
143
|
0 |
0 |
if (/^%?\
|
|
152
|
2 |
0 |
if $test |
|
155
|
2 |
0 |
if $test |
|
157
|
2 |
0 |
if defined $output |
|
158
|
0 |
2 |
unless $test |
|
168
|
21 |
9 |
if ($lilypond) { } |
|
183
|
141 |
378 |
if ($c eq '|') { } |
|
|
0 |
378 |
elsif ($c eq ':') { } |
|
|
260 |
118 |
elsif ($c eq '.') { } |
|
|
0 |
118 |
elsif ($c eq '%') { } |
|
|
0 |
118 |
elsif ($c eq '-') { } |
|
|
0 |
118 |
elsif ($c eq q[']) { } |
|
|
0 |
118 |
elsif ($c eq '`') { } |
|
|
0 |
118 |
elsif (lc $c eq 'ta') { } |
|
217
|
7 |
111 |
if ($chord->is_rest) { } |
|
221
|
77 |
34 |
if $xpose |
|
225
|
81 |
37 |
if (my $d = $chord->duration) |
|
231
|
0 |
519 |
if $@ =~ /can\'t locate/i |
|
232
|
0 |
519 |
if $@ |
|
234
|
0 |
30 |
if (defined $posttext) |
|
247
|
2 |
10 |
if (/^t(itle)?\s+(.*)/i) |
|
253
|
2 |
8 |
if (/^s(ub(title)?)?\s+(.*)/i) |
|
259
|
2 |
6 |
if (/^w(idth)?\s+([-+]?\d+)/i) |
|
265
|
1 |
5 |
if (/^h(eight)?\s+([-+]?\d+)/i) |
|
271
|
0 |
5 |
if (/^m(argin)?\s+([-+]?\d+)/i) |
|
277
|
1 |
4 |
if (/^x(pose)?\s+([-+])(\d+)/i) |
|
283
|
1 |
3 |
if (/^n(umber)?\s+([-+]?\d+)?/i) |
|
284
|
1 |
0 |
$2 < 0 ? : |
|
|
1 |
0 |
$2 ? : |
|
|
1 |
0 |
defined $2 ? : |
|
289
|
3 |
0 |
if (/^l(?:y|ilypond)?(?:\s+(\d+))?/i) |
|
290
|
1 |
2 |
defined $1 ? : |
|
291
|
0 |
3 |
$lilypond && defined $1 ? : |
|
295
|
0 |
0 |
if (/^\>\s+(.+)/i) |
|
309
|
81 |
37 |
if ($lilypond) { } |
|
310
|
1 |
80 |
unless ($lilyparser) |
|
317
|
2 |
35 |
unless ($chordparser) |
|
329
|
0 |
0 |
unless @l == 8 or @l == 7 |
|
338
|
0 |
0 |
if lc $_ eq 'x' |
|
339
|
0 |
0 |
if (/^@(\d+)/) |
|
340
|
0 |
0 |
if $1 > 1 |
|
343
|
0 |
0 |
unless /^-?\d$/ or @c == 6 |
|
350
|
0 |
0 |
$chord ? : |
|
401
|
2 |
2 |
if ($new) |
|
405
|
2 |
2 |
$new ? : |
|
432
|
101 |
40 |
if (defined $barno) { } |
|
433
|
22 |
79 |
if ($first) { } |
|
434
|
21 |
1 |
$barno > 0 ? : |
|
478
|
3 |
1 |
unless (on_top()) |
|
481
|
0 |
4 |
unless defined $margin |
|
482
|
1 |
3 |
unless $margin =~ /\S/ |
|
492
|
32 |
2 |
unless $on_top |
|
504
|
0 |
2 |
if $ps_pages |
|
515
|
0 |
0 |
unless $v =~ /^([-+])?(\d+)$/ |
|
517
|
0 |
0 |
if (defined $1) { } |
|
537
|
0 |
2 |
unless $v =~ /^([-+])?(\d+)$/ |
|
539
|
2 |
0 |
if (defined $1) { } |
|
549
|
0 |
1 |
unless $v =~ /^([-+])?(\d+)$/ |
|
551
|
1 |
0 |
if (defined $1) { } |
|
570
|
3 |
62 |
if defined $_[0] |
|
589
|
2 |
0 |
if (defined $preamble) { } |
|
590
|
0 |
2 |
unless open DATA, $preamble |
|
630
|
0 |
2 |
unless @ARGV > 0 |
|
632
|
0 |
2 |
if (not &GetOptions('output=s', \$output, 'preamble=s', \$preamble, 'transpose|x=i', \$gxpose, 'lilypond=i', \$lilypond, 'syntax', \$syntax, 'ident', \$ident, 'verbose', \$verbose, 'trace', \$trace, 'help', \$help, 'test', \$test, 'debug', \$debug) or abs $gxpose > 11) |
|
648
|
0 |
2 |
if $ident |
|
649
|
0 |
2 |
if ($help) |
|
653
|
0 |
2 |
if ($syntax) |
|
654
|
0 |
0 |
$lilypond ? : |
|
658
|
0 |
2 |
if $lilypond |
|
678
|
0 |
0 |
if $exit != 0 |