line |
true |
false |
branch |
82
|
0 |
91 |
if $main::options->{'debug'} |
83
|
0 |
91 |
if $main::options->{'trace'} |
84
|
0 |
91 |
if $main::options->{'debug'} |
90
|
0 |
91 |
if $opts |
91
|
0 |
91 |
if $main::options->{'debug'} |
101
|
91 |
0 |
if (defined $of and $of ne '') { } |
|
0 |
0 |
elsif (-t STDOUT) { } |
102
|
8 |
83 |
if ($of =~ /\.pdf$/iu) { } |
|
0 |
83 |
elsif ($of =~ /\.ly$/iu) { } |
|
0 |
83 |
elsif ($of =~ /\.(tex|ltx)$/iu) { } |
|
6 |
77 |
elsif ($of =~ /\.cho$/iu) { } |
|
0 |
77 |
elsif ($of =~ /\.msp$/iu) { } |
|
9 |
68 |
elsif ($of =~ /\.(crd|txt)$/iu) { } |
|
3 |
65 |
elsif ($of =~ /\.html?$/iu) { } |
|
0 |
65 |
elsif ($of =~ /\.mma?$/iu) { } |
|
0 |
65 |
elsif ($of =~ /\.(md|markdown)$/iu) { } |
|
0 |
65 |
elsif ($of =~ /\.(debug)$/iu) { } |
137
|
0 |
0 |
if (@ARGV > 1 or $main::options->{'dump-chords'} and not @ARGV) |
143
|
0 |
0 |
if $f eq $ARGV[0] |
145
|
0 |
0 |
if $main::options->{'verbose'} |
155
|
0 |
91 |
if $@ |
157
|
0 |
91 |
if $main::options->{'verbose'} and $pkg->can("version") |
169
|
19 |
72 |
if ($main::options->{'a2crd'}) |
180
|
0 |
72 |
if ($file =~ /(^|\s)--(?:meta|config|define)\b/u) |
186
|
0 |
0 |
unless &Getopt::Long::GetOptionsFromArray(\@w, "config=s\@", \@cfg, "meta=s%", \%meta, "define=s%", \%defs) and @w == 1 |
195
|
0 |
0 |
if (@cfg) |
202
|
0 |
72 |
if ($main::options->{'dump-chords'}) |
211
|
0 |
0 |
if $c =~ /^n\.?c\.?$/iu |
212
|
0 |
0 |
if ($c =~ /^(.[b#]?)/u and $1 ne $prev) |
214
|
0 |
0 |
if @chords |
225
|
0 |
0 |
if @chords |
232
|
0 |
0 |
if (@{$s->{'songs'};} == 1 and not exists $s->{'songs'}[0]{'body'}) { } |
242
|
72 |
0 |
if ($of) |
244
|
0 |
72 |
if ($f ne $of) |
247
|
0 |
0 |
if $main::options->{'verbose'} |
254
|
12 |
60 |
if $main::options->{'output'} eq "*" |
259
|
71 |
8 |
if ($res and @$res > 0) |
260
|
71 |
0 |
if ($of and $of ne '-') { } |
263
|
3 |
68 |
unless $res->[-1] eq "" |
269
|
0 |
0 |
unless $res->[-1] eq "" |
288
|
0 |
0 |
unless defined wantarray |
693
|
91 |
0 |
if (defined $appname) { } |
701
|
0 |
91 |
if ($app_lc eq "a2crd") |
707
|
91 |
0 |
if (-d "/etc") |
712
|
0 |
91 |
if ($ENV{'XDG_CONFIG_HOME'} and -d $ENV{'XDG_CONFIG_HOME'}) { } |
|
91 |
0 |
elsif ($ENV{'HOME'} and -d $ENV{'HOME'}) { } |
719
|
0 |
91 |
if (-d $dir) { } |
732
|
0 |
91 |
if (-s ".$app_lc.json") { } |
862
|
0 |
91 |
if ($reference) |
894
|
0 |
91 |
unless ($ok) |
903
|
0 |
0 |
$manual == 2 ? : |
909
|
0 |
91 |
if $ident or $clo->{'verbose'} or $help or $manual |
910
|
0 |
91 |
if ($manual or $help) |
911
|
0 |
0 |
if $help |
912
|
0 |
0 |
if $manual |
914
|
0 |
91 |
if $version |
915
|
0 |
91 |
if $about |
921
|
0 |
182 |
if (defined $_) |
922
|
0 |
0 |
unless -r $_ |
926
|
182 |
0 |
if $clo->{'nodefaultconfigs'} |
927
|
0 |
0 |
unless $configs{$config} |
929
|
0 |
0 |
unless -r $_ |
934
|
0 |
91 |
if (defined $_) |
937
|
0 |
0 |
unless ($c =~ m[[/.]]u) |
940
|
0 |
0 |
unless -r $c |
945
|
91 |
0 |
if $clo->{'nodefaultconfigs'} |
946
|
0 |
0 |
unless $configs{$config} |
948
|
0 |
0 |
unless -r -f $_->[0] |
953
|
273 |
0 |
unless $clo->{$config} |
960
|
91 |
0 |
unless defined $clo->{$_} |
973
|
0 |
91 |
if ($defcfg or $fincfg or $deltacfg) |
974
|
0 |
0 |
if $defcfg |
976
|
0 |
0 |
if $fincfg or $deltacfg |
981
|
0 |
91 |
if ($dump_chords) |
988
|
0 |
91 |
if ($clo->{'filelist'}) |
993
|
0 |
0 |
unless /\S/u |
994
|
0 |
0 |
if /^#/u |
999
|
0 |
0 |
if (@files) |
1000
|
0 |
0 |
if ($files[0] =~ /\.pdf$/iu) |
1004
|
0 |
0 |
if ($files[-1] =~ /\.pdf$/iu) |
1009
|
0 |
0 |
if @files |
1015
|
0 |
91 |
unless $main::__EMBEDDED__ or $clo->{'dump-chords'} or @ARGV |
1024
|
0 |
0 |
if defined $exit |
1046
|
0 |
0 |
if defined $exit |
1055
|
0 |
8 |
defined $Wx::VERSION ? : |
1056
|
0 |
8 |
defined $Wx::VERSION ? : |
1062
|
0 |
8 |
if $main::options->{'reference'} |
1063
|
8 |
0 |
if ($VERSION =~ /_/u) |
1067
|
8 |
0 |
if ($short) |
1076
|
0 |
0 |
if ($App::Packager::PACKAGED) |
1078
|
0 |
0 |
unless $p =~ /packager/iu |
1084
|
0 |
0 |
if ($ENV{'CHORDPRO_LIB'}) |
1096
|
0 |
0 |
if (defined $Wx::VERSION) |
1118
|
0 |
0 |
unless eval {
do {
require PDF::Builder;
$msg .= sprintf($fmtv, "PDF::Builder", &$dd($PDF::Builder::VERSION))
}
} |
1135
|
0 |
150 |
unless $path |
1136
|
0 |
150 |
if ($^O =~ /Win/u) |
1222
|
0 |
0 |
if defined $exit |
1232
|
119 |
42 |
if $cfg |
1235
|
119 |
42 |
unless ($f =~ m[[/.]]u) |
1236
|
0 |
119 |
if ($c =~ /^(.+):(.*)/u) { } |
1243
|
150 |
11 |
if ($ENV{'CHORDPRO_LIB'}) |
1247
|
0 |
150 |
if $main::options->{'debug'} |
1248
|
0 |
150 |
if -r $lib . "/" . $f |
1252
|
0 |
161 |
if $main::options->{'debug'} |
1254
|
161 |
0 |
defined $t ? : |