| line |
true |
false |
branch |
|
41
|
0 |
0 |
if (/Can\'t locate .* in \@INC/ and not /Compilation failed/) { }
|
|
52
|
0 |
0 |
$File_Spec_Using_Unix ? :
|
|
56
|
0 |
0 |
$File_Spec_Using_Unix ? :
|
|
80
|
0 |
0 |
if (my($base, $ext) = $path =~ /^(.*)\.(.*)$/) { }
|
|
81
|
0 |
0 |
if (defined $current_base and $current_base ne $base) { }
|
|
82
|
0 |
0 |
@current_exts == 1 ? :
|
|
102
|
0 |
0 |
if (defined $current_base)
|
|
103
|
0 |
0 |
@current_exts == 1 ? :
|
|
133
|
0 |
0 |
if &$func
|
|
143
|
0 |
0 |
if &$f()
|
|
158
|
0 |
0 |
'JSON'->VERSION < 2 ? :
|
|
163
|
0 |
0 |
'JSON'->VERSION < 2 ? :
|
|
174
|
0 |
0 |
unless $path eq './'
|
|
176
|
0 |
0 |
unless $path eq '/'
|
|
177
|
0 |
0 |
if $path =~ s[/[^/]+/\.\.$][]
|
|
178
|
0 |
0 |
if $path =~ s[[^/]+/\.\./][]
|
|
190
|
0 |
0 |
unless (sysopen $read_fh, $file, $Fetch_Flags)
|
|
196
|
0 |
0 |
if (defined $read_cnt) { }
|
|
197
|
0 |
0 |
if $read_cnt == 0
|
|
199
|
0 |
0 |
if $size_left <= 0
|
|
209
|
0 |
1 |
${^TAINT} ? :
|
|
214
|
0 |
0 |
if (-f $file) { }
|
|
225
|
0 |
0 |
if (defined $str)
|
|
234
|
0 |
0 |
$h{$_}++ == 0 ? :
|
|
240
|
0 |
1 |
if taint_is_on()
|
|
241
|
1 |
0 |
unless defined $file_create_mode
|
|
247
|
0 |
1 |
unless (sysopen $write_fh, $file, $Store_Flags, $file_create_mode)
|
|
254
|
0 |
1 |
unless (defined $write_cnt)
|