| line |
true |
false |
branch |
|
39
|
2 |
0 |
unless ($self->{'split'}) |
|
43
|
0 |
2 |
if ($u->{'transpose'}) |
|
49
|
0 |
0 |
if ($song->{'actual_key'} ne '') |
|
54
|
0 |
0 |
if $song->{'dataxp'} |
|
58
|
2 |
0 |
if (ref $self->{'output'}) { } |
|
63
|
0 |
0 |
unless open my $fd, '>:utf8', $self->{'output'} |
|
71
|
0 |
0 |
if $outdir and not $outdir =~ m[/$] |
|
72
|
0 |
0 |
unless -d $outdir |
|
78
|
0 |
0 |
if ($song->{'transpose'}) |
|
80
|
0 |
0 |
if ($song->{'actual_key'} ne '') |
|
85
|
0 |
0 |
if $song->{'dataxp'} |
|
100
|
0 |
0 |
unless open my $fd, '>:utf8', $out |
|
105
|
0 |
0 |
if $self->{'verbose'} |
|
114
|
1 |
1 |
if ($pl->{'name'}) { } |
|
120
|
0 |
2 |
$regtest ? : |
|
147
|
1 |
1 |
if ($pl->{'name'} or @{$pl->{'songs'};} > 1) { } |
|
152
|
2 |
0 |
@c == 2 ? : |
|
159
|
0 |
2 |
$s->{'ts'} ? : |