| line |
true |
false |
branch |
|
32
|
0 |
223 |
unless @tuning |
|
60
|
0 |
0 |
if $a0 != $b0 |
|
61
|
0 |
0 |
if $arest =~ /^m(?:in)?(?!aj)/u |
|
62
|
0 |
0 |
if $brest =~ /^m(?:in)?(?!aj)/u |
|
69
|
0 |
0 |
unless $a0 <=> $b0 |
|
77
|
0 |
26 |
if ($hdr) |
|
95
|
2 |
75 |
if (eval {
do {
$chord->{'name'}
}
}) { } |
|
|
0 |
75 |
elsif ($origin eq 'chord') { } |
|
105
|
8 |
69 |
unless $info |
|
113
|
64 |
350 |
$_ < 0 ? : |
|
114
|
2 |
67 |
$origin eq 'chord' ? : |
|
|
69 |
0 |
@{$info->{'frets'} // [];} ? : |
|
118
|
0 |
6 |
$_ < 0 ? : |
|
120
|
1 |
68 |
if $info->{'fingers'} and @{$info->{'fingers'};} |
|
124
|
0 |
69 |
if $info->{'keys'} and @{$info->{'keys'};} |
|
136
|
0 |
0 |
$mode && $mode == 2 ? : |
|
159
|
0 |
0 |
if $maxl < $t |
|
165
|
0 |
0 |
if (eval {
do {
$chord->{'name'}
}
}) { } |
|
171
|
0 |
0 |
unless $info |
|
177
|
0 |
0 |
if (@{$info->{'frets'};}) |
|
182
|
0 |
0 |
if ($info->{'fingers'} and @{$info->{'fingers'};}) |
|
187
|
0 |
0 |
if ($info->{'keys'} and @{$info->{'keys'};}) |
|
198
|
0 |
0 |
if ($main::config->{'pdf'}{'diagrams'}{'vcells'}) |
|
221
|
0 |
197 |
unless ref $t eq "ARRAY" |
|
224
|
118 |
79 |
if (@tuning) { } |
|
227
|
0 |
118 |
if ($t1 ne $t2) |
|
229
|
0 |
0 |
if $main::options->{'verbose'} > 1 |
|
254
|
7 |
0 |
unless ref $p and $p->isa("ChordPro::Chords::Parser") |
|
258
|
0 |
7 |
if $main::options->{'verbose'} > 1 |
|
279
|
197 |
0 |
unless ref $p and $p->isa("ChordPro::Chords::Parser") |
|
286
|
0 |
197 |
unless @parsers |
|
294
|
1132 |
1260 |
if (ref($name) =~ /^ChordPro::Chord::/u) |
|
299
|
1904 |
488 |
if $ret |
|
300
|
240 |
248 |
unless $info |
|
304
|
18 |
230 |
unless $name |
|
306
|
9 |
221 |
if ($ret) |
|
312
|
18 |
63 |
unless defined $info->{$_} |
|
323
|
0 |
49881 |
if ($frets and @$frets and @$frets != strings()) |
|
326
|
0 |
31043 |
if ($fingers and @$fingers and @$fingers != strings()) |
|
329
|
0 |
49883 |
unless ($base > 0 and $base < 24) |
|
332
|
8 |
49875 |
if ($keys and @$keys) |
|
334
|
0 |
24 |
unless /^\d+$/u and $_ < 24 |
|
351
|
0 |
49821 |
if ($def->{'name'} =~ /.\|./u) |
|
354
|
1 |
49820 |
if (UNIVERSAL::isa($def->{'name'}, 'ARRAY')) { } |
|
363
|
30940 |
18881 |
if ($def->{'copy'} or $def->{'copyall'}) |
|
365
|
0 |
30940 |
if ($def->{'copyall'}) |
|
366
|
0 |
0 |
if $src |
|
371
|
0 |
30940 |
unless $res |
|
373
|
30940 |
0 |
if ($def->{'copy'}) { } |
|
386
|
0 |
49821 |
if $res |
|
389
|
0 |
49821 |
if ($def->{'display'}) |
|
391
|
0 |
0 |
if ($dpinfo) { } |
|
402
|
19873 |
18445 |
if ($info->is_chord and $def->{'copy'} and $def->is_chord) |
|
413
|
0 |
49822 |
unless $parser->{'target'} |
|
424
|
49822 |
0 |
$frets && @$frets ? : |
|
|
0 |
49822 |
$fingers && @$fingers ? : |
|
|
0 |
49822 |
$keys && @$keys ? : |
|
430
|
38318 |
11504 |
if ($info->is_chord) { } |
|
436
|
0 |
11504 |
if ($i and $i->is_chord) |
|
443
|
38318 |
11504 |
if ($info->is_chord) |
|
456
|
0 |
62 |
if $res |
|
470
|
60 |
2 |
unless defined $c->{$_} |
|
473
|
103 |
83 |
unless $c->{$_} and @{$c->{$_};} |
|
503
|
0 |
0 |
if %song_chords |
|
561
|
0 |
0 |
if $info->{'keys'} and @{$info->{'keys'};} |
|
567
|
0 |
0 |
if defined $info->{'qual_canon'} and defined $info->{'ext_canon'} and defined $keys{$info->{'qual_canon'} . $info->{'ext_canon'}} |
|
570
|
0 |
0 |
unless $info->{'frets'} and @{$info->{'frets'};} |
|
575
|
0 |
0 |
if $base < 0 |
|
578
|
0 |
0 |
if $_ < 0 |
|
580
|
0 |
0 |
if ($info->{'root_ord'}) |
|
581
|
0 |
0 |
if $c < $info->{'root_ord'} |
|
594
|
0 |
123 |
unless $xpose or $xcode |
|
595
|
0 |
123 |
if $c =~ /^ .+/u |
|
597
|
0 |
123 |
unless ($info) |
|
606
|
0 |
0 |
$xpose ? : |