| line |
true |
false |
branch |
|
33
|
34 |
0 |
defined &Scalar::Util::weaken ? : |
|
67
|
0 |
1053 |
unless defined $retval |
|
69
|
531 |
522 |
unless $retval |
|
76
|
0 |
537 |
unless -e $file |
|
77
|
0 |
537 |
if -d _ |
|
78
|
0 |
537 |
unless open my $fh, "< $file" |
|
80
|
3 |
534 |
if $binmode |
|
89
|
0 |
0 |
'File::Spec'->case_tolerant ? : |
|
114
|
599 |
50 |
unless $comp_path =~ m[^/] |
|
130
|
666 |
0 |
unless $path eq './' |
|
132
|
666 |
0 |
unless $path eq '/' |
|
133
|
0 |
666 |
if $path =~ s[/[^/]+/\.\.$][] |
|
134
|
17 |
649 |
if $path =~ s[[^/]+/\.\./][] |
|
160
|
80 |
4 |
$$varname ? : |
|
175
|
7 |
4 |
if exists $INC{$file} |
|
179
|
1 |
3 |
if ($@) |
|
180
|
1 |
0 |
if ($@ =~ /^Can\'t locate (.*) in \@INC/) { } |
|
181
|
1 |
0 |
if (defined $nf_error) { } |
|
201
|
1065 |
29 |
if defined $TaintIsOn |
|
207
|
29 |
0 |
if ($] >= 5.008) { } |
|
211
|
1 |
28 |
eval '${^TAINT}' ? : |
|
216
|
0 |
0 |
if "+$0$^X" |
|
217
|
0 |
0 |
$@ ? : |
|
225
|
0 |
5 |
unless ref $val |
|
227
|
5 |
0 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($val, 'HASH')) { } |
|
243
|
0 |
2 |
unless ref $val |
|
246
|
0 |
2 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
|
2 |
0 |
elsif (UNIVERSAL::isa($val, 'HASH')) { } |