| line |
true |
false |
branch |
|
98
|
0 |
19 |
if $opts |
|
107
|
19 |
0 |
@ARGV ? : |
|
|
0 |
19 |
$opts->{'lines'} ? : |
|
118
|
0 |
31 |
unless $line |
|
120
|
0 |
31 |
unless $tabstop > 0 |
|
123
|
0 |
31 |
if @l == 1 |
|
137
|
31 |
726 |
if (/\t/u) |
|
155
|
754 |
3 |
if ($n_ch_chords < 1) { } |
|
169
|
143 |
611 |
if $line =~ /^\s*$/u |
|
170
|
10 |
601 |
if $line =~ /^\{.+/u |
|
171
|
1 |
600 |
unless (defined $classify) |
|
174
|
0 |
1 |
unless ($classify) |
|
189
|
0 |
0 |
$len / length($line) - 1 < 1 ? : |
|
191
|
0 |
0 |
if ($type eq "l") |
|
193
|
0 |
0 |
if (length $_ > 0) |
|
194
|
0 |
0 |
unless (ChordPro::Chords::parse_chord($_)) |
|
214
|
15 |
875 |
if ($word =~ m[^(.*)/(.*)]u) { } |
|
221
|
10 |
880 |
if ($bass) |
|
234
|
842 |
48 |
unless $chord =~ s/($roots)//u |
|
240
|
3 |
45 |
if ($chord =~ s/^([b#]|flat|sharp)//u) |
|
244
|
0 |
48 |
if ($chord =~ s/^(minor|major)//u) |
|
248
|
0 |
48 |
if ($chord =~ s/^(min|maj)//u) |
|
252
|
9 |
39 |
if ($chord =~ s/^(m|dim|0|o|aug|\+)//u) |
|
266
|
9 |
39 |
if $n_ok == length $chord |
|
295
|
38 |
0 |
if ($any_chord_ok or generic_parse_chord($cname)) |
|
312
|
32 |
0 |
if ($any_chord_ok or generic_parse_chord($1)) |
|
328
|
384 |
0 |
if ($any_chord_ok or generic_parse_chord($1)) |
|
337
|
402 |
385 |
if ($is_fingering) |
|
338
|
201 |
201 |
unless $return_chordpro_fingering |
|
355
|
1213 |
146 |
if ($fret =~ /[0-9]/u) |
|
356
|
304 |
909 |
if $min_fret > $fret |
|
357
|
325 |
888 |
if $max_fret < $fret |
|
365
|
49 |
178 |
if $bf > 0 |
|
370
|
1213 |
146 |
if ($fret =~ /[0-9]/u) { } |
|
404
|
6 |
595 |
if $line =~ /^\s*\[.+?\]/u |
|
405
|
3 |
592 |
if $line =~ /^\s*\#.+?/u |
|
406
|
2 |
590 |
if $lc_line =~ /(from|email|e\-mail)\:?.+?\@+/u |
|
407
|
2 |
588 |
if $lc_line =~ /(from|email|e\-mail)\:.+?/u |
|
408
|
2 |
586 |
if $lc_line =~ /(date|subject)\:.+?/u |
|
411
|
201 |
385 |
if decode_fingering($line, 0) |
|
437
|
55 |
0 |
if $longest_tablature_string < length $1 |
|
440
|
55 |
330 |
if $longest_tablature_string > 8 |
|
463
|
271 |
2829 |
if $longest_strumming_string < length $1 |
|
466
|
0 |
330 |
if $longest_strumming_string >= 6 |
|
478
|
8 |
322 |
if $n_dash == $n_nonblank_chars or $n_equal == $n_nonblank_chars |
|
479
|
104 |
218 |
if ($n_period + $n_dash + $n_bar + $n_c_accent + $n_v + $n_digit) / $n_nonblank_chars > "0.8" |
|
480
|
2 |
216 |
if ($n_bar + $n_slash + $n_underscore) / $n_nonblank_chars >= "0.5" |
|
489
|
1083 |
74 |
if (length $_ > 0) |
|
493
|
193 |
890 |
ChordPro::Chords::parse_chord($_) ? : |
|
494
|
890 |
193 |
unless ($is_chord) |
|
495
|
9 |
881 |
if (generic_parse_chord($_)) |
|
496
|
0 |
9 |
if $local_debug |
|
501
|
202 |
881 |
if $is_chord |
|
502
|
0 |
1083 |
if $local_debug |
|
507
|
0 |
216 |
if $local_debug |
|
509
|
0 |
216 |
if $n_words == 0 |
|
511
|
63 |
153 |
$n_chords / $n_words > 0.4 ? : |
|
513
|
153 |
63 |
if ($type eq "l") |
|
533
|
0 |
69 |
if $line eq "" |
|
548
|
0 |
19 |
if $local_debug |
|
549
|
0 |
19 |
if $local_debug |
|
552
|
0 |
13 |
if $local_debug |
|
555
|
7 |
6 |
$1 eq 'C' ? : |
|
556
|
7 |
6 |
$1 eq 'C' ? : |
|
560
|
0 |
19 |
if $local_debug |
|
562
|
18 |
1 |
if ($infer_titles and $map =~ s/^l//u) |
|
564
|
8 |
10 |
if ($map =~ s/^l//u) |
|
569
|
0 |
19 |
if $local_debug |
|
573
|
0 |
332 |
if $local_debug |
|
583
|
0 |
332 |
if $local_debug |
|
585
|
5 |
327 |
if $1 eq "c" and $2 eq "l" |
|
586
|
4 |
323 |
if $2 eq "t" |
|
588
|
6 |
317 |
if ($1 eq 'c' || $1 eq 'l' and $3 eq "t") |
|
595
|
59 |
258 |
if ($1 eq 'l' or $1 eq 'C') { } |
|
|
191 |
67 |
elsif ($1 eq 'f') { } |
|
|
8 |
59 |
elsif ($1 eq '{') { } |
|
607
|
1 |
7 |
if ($line =~ /{sot}/u) |
|
611
|
0 |
8 |
unless $line |
|
614
|
1 |
7 |
if $line =~ /{eot}/u |
|
625
|
0 |
19 |
if $local_debug |
|
629
|
0 |
188 |
if $local_debug |
|
631
|
0 |
188 |
if $local_debug |
|
634
|
10 |
178 |
if ($map =~ s/^f//u) |
|
642
|
78 |
100 |
if ($map =~ s/^_//u) |
|
649
|
4 |
96 |
if ($map =~ s/^C//u) |
|
659
|
17 |
79 |
if ($map =~ s/^[cl]t/t/u) |
|
660
|
17 |
0 |
unless ($in_tablature) |
|
668
|
12 |
143 |
unless ($in_tablature) |
|
676
|
29 |
67 |
if ($in_tablature) |
|
678
|
9 |
20 |
if ($map =~ s/^[cl](_|$)//u) |
|
690
|
0 |
67 |
if ($map =~ s/^_l/l/u) |
|
696
|
40 |
27 |
if ($map =~ s/^cl//u) { } |
|
|
0 |
27 |
elsif ($map =~ s/^__l//u) { } |
|
|
0 |
27 |
elsif ($map =~ s/^_l//u) { } |
|
|
1 |
26 |
elsif ($map =~ s/^{//u) { } |
|
|
22 |
4 |
elsif ($map =~ s/^l//u) { } |
|
|
4 |
0 |
elsif ($map =~ s/^c//u) { } |
|
|
0 |
0 |
elsif ($map =~ s/^_//u) { } |
|
717
|
0 |
1 |
if ($line =~ /{sot}/u) |
|
721
|
0 |
0 |
unless $line |
|
724
|
0 |
0 |
if $line =~ /{eot}/u |
|
751
|
19 |
0 |
wantarray ? : |
|
824
|
0 |
0 |
if (defined $appname) { } |
|
858
|
0 |
0 |
unless (&GetOptions($clo, "output|o=s", "config|cfg=s\@", "noconfig|no-config", "sysconfig=s", "nosysconfig|no-sysconfig", "userconfig=s", "nouserconfig|no-userconfig", "nodefaultconfigs|no-default-configs|X", "define=s%", "print-default-config", \$defcfg, "print-final-config", \$fincfg, "version|V", \$version, "ident", \$ident, "help|h|?", \$help, "manual", \$manual, "verbose|v+", "trace", "debug+")) |
|
900
|
0 |
0 |
if $ident or $help or $manual |
|
901
|
0 |
0 |
if ($manual or $help) |
|
902
|
0 |
0 |
if $help |
|
903
|
0 |
0 |
if $manual |
|
905
|
0 |
0 |
if $version |
|
911
|
0 |
0 |
if (defined $_) |
|
912
|
0 |
0 |
unless -r $_ |
|
916
|
0 |
0 |
if $clo->{'nodefaultconfigs'} |
|
917
|
0 |
0 |
unless $configs{$config} |
|
919
|
0 |
0 |
unless -r $_ |
|
924
|
0 |
0 |
if (defined $_) |
|
928
|
0 |
0 |
unless (-r $try) |
|
931
|
0 |
0 |
unless -r $try |
|
936
|
0 |
0 |
if $clo->{'nodefaultconfigs'} |
|
937
|
0 |
0 |
unless $configs{$config} |
|
939
|
0 |
0 |
unless -r $_->[0] |
|
944
|
0 |
0 |
unless $clo->{$config} |
|
951
|
0 |
0 |
if ($defcfg or $fincfg) |
|
952
|
0 |
0 |
if $defcfg |
|
954
|
0 |
0 |
if $fincfg |
|
965
|
0 |
0 |
$my_package ? : |
|
970
|
0 |
0 |
if defined $exit |
|
976
|
0 |
0 |
unless $cmd =~ m[(?:^|\/|\\)a2crd(?:\.\w+)$]u |
|
988
|
0 |
0 |
if defined $exit |