| line |
true |
false |
branch |
|
30
|
0 |
8 |
unless &GetOptions(%option_spec) |
|
33
|
6 |
2 |
unless (grep(($_->[0] eq "process_tpl"), @script)) |
|
36
|
0 |
6 |
if -t STDIN and -t STDERR |
|
41
|
1 |
7 |
if ($script[0][0] ne "process_tpl") |
|
47
|
0 |
8 |
if ($opt_list_sections) { } |
|
|
8 |
0 |
elsif (not grep(($_->[0] eq 'output'))) { } |
|
56
|
0 |
0 |
unless $var =~ /^( [\$\@\%]? ) [\w_]+ $/ux |
|
58
|
0 |
0 |
if ($1) { } |
|
59
|
0 |
0 |
$1 eq '@' ? : |
|
|
0 |
0 |
$1 eq '$' ? : |
|
68
|
0 |
0 |
unless eval "use strict; use warnings; $expr; 1" |
|
72
|
0 |
0 |
if $value =~ /,/u |
|
75
|
0 |
0 |
if $value =~ /=/u |
|
90
|
0 |
8 |
if ($opt_dump_pl) { } |
|
104
|
0 |
0 |
unless eval $code |
|
108
|
0 |
0 |
unless defined $tpl |
|
114
|
7 |
8 |
if ($filespec eq '-' or not length $filespec) { } |
|
119
|
2 |
13 |
defined $sections ? : |
|
126
|
0 |
23 |
unless $method = "main"->can($method) |
|
130
|
0 |
7 |
if ($opt_list_sections) |
|
141
|
0 |
0 |
unless exec $^X, "$FindBin::RealBin/$FindBin::RealScript", @new_argv |