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