| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless getopt 'L:', $param |
|
20
|
0 |
0 |
unless grep {/^\.$/;} @INC |
|
26
|
0 |
0 |
unless getopt 'L:', $param |
|
29
|
0 |
0 |
unless grep {/^\.$/;} @INC |
|
41
|
0 |
0 |
unless defined $loglevel |
|
46
|
0 |
0 |
if (defined $_[0] and $_[0] =~ /^(\d+)/) |
|
47
|
0 |
0 |
unless $1 >= $loglevel |
|
109
|
0 |
0 |
if -d './input' |
|
110
|
0 |
0 |
if -d './output' |
|
111
|
0 |
0 |
if -d './lib' |
|
113
|
0 |
0 |
if (scalar %$v) |
|
188
|
0 |
0 |
unless defined $v |
|
196
|
0 |
0 |
unless $rest =~ /(\S+)(?:\s+(\S.*))?$/ |
|
202
|
0 |
0 |
unless exists $$self{'options'}{$key} |
|
205
|
0 |
0 |
if ($key eq 'inc' and $val eq '@') |
|
224
|
0 |
0 |
unless exists $$dispatch{$key} |
|
233
|
0 |
0 |
unless defined $$self{'lastCmd'} |
|
244
|
0 |
0 |
if $in eq $out |
|
260
|
0 |
0 |
unless $in =~ /\.html$/i |
|
280
|
0 |
0 |
unless defined $cmd |
|
282
|
0 |
0 |
if $$self{'options'}{'verbose'} |
|
292
|
0 |
0 |
if defined $$options{'perl_opt'} |
|
295
|
0 |
0 |
if (defined $$options{'inc'}) |
|
304
|
0 |
0 |
if defined $logLevel |
|
316
|
0 |
0 |
unless defined $rest |
|
318
|
0 |
0 |
if /\*/ |
|
320
|
0 |
0 |
if ($hasWildcards) |
|
326
|
0 |
0 |
if (2 == @items) |
|
336
|
0 |
0 |
-t "$inFH" ? : |
|
345
|
0 |
0 |
unless exists $$dispatch{$cmd} |
|
350
|
0 |
0 |
unless $rv |
|
358
|
0 |
0 |
if not defined $line or $line eq '' |
|
359
|
0 |
0 |
if $line =~ /^\s*#/ |
|
364
|
0 |
0 |
if ($line =~ /^!\s*(\S.*)?$/) |
|
367
|
0 |
0 |
if ($line =~ /^(\w+)\b\s*(\S.*)?$/) |