| line |
true |
false |
branch |
|
52
|
0 |
113 |
if ($File::Spec::VERSION lt '3.13')
|
|
57
|
0 |
0 |
if $r eq ''
|
|
68
|
2198 |
1495 |
unless defined $filename
|
|
69
|
18 |
1477 |
if $filename =~ m[^//]g
|
|
71
|
5 |
1472 |
if $filename =~ /[\r\n\t]/g
|
|
72
|
9 |
2946 |
if /^\.\.?$/
|
|
74
|
2 |
1461 |
if not defined $filename or $filename eq ''
|
|
82
|
2199 |
2340 |
unless defined $filename and length $filename
|
|
83
|
32 |
2303 |
if $filename =~ tr/\t\n\r// or index($filename, '//') != -1 or substr($filename, 0, 1) eq '/'
|
|
84
|
18 |
2285 |
if $filename =~ m[
(^|/)\.\.?(/|$)
]x
|
|
101
|
0 |
98 |
unless defined $abspath
|
|
102
|
0 |
98 |
if $abspath eq ''
|
|
105
|
0 |
98 |
unless -e $abspath and &file_inodev($abspath, 'use_filename_encoding', 0) eq $orig_id
|
|
113
|
9 |
12892 |
unless $_filename_encoding
|
|
117
|
7047 |
254 |
@_ ? :
|
|
122
|
2830 |
1 |
@_ ? :
|
|
129
|
0 |
2802 |
unless defined $path and defined $base
|
|
131
|
2753 |
49 |
if ($args{'use_filename_encoding'})
|
|
135
|
0 |
2802 |
unless $args{'allow_rel_base'} or $base =~ m[^/]
|
|
137
|
2753 |
49 |
$args{'use_filename_encoding'} ? :
|
|
171
|
1 |
224 |
if %checkargs
|
|
173
|
1 |
223 |
unless defined $args{'mode'}
|
|
174
|
1 |
222 |
unless $args{'mode'} =~ /^\+?(<|>>?)$/
|
|
178
|
1 |
221 |
if $args{'not_empty'} and $args{'mode'} ne '<'
|
|
181
|
183 |
38 |
if (defined $args{'file_encoding'}) { }
|
|
|
1 |
37 |
elsif (not $args{'binary'}) { }
|
|
183
|
1 |
182 |
if $args{'binary'}
|
|
188
|
218 |
1 |
if ($args{'use_filename_encoding'})
|
|
192
|
3 |
216 |
if -e $filename and not -f $filename
|
|
193
|
1 |
215 |
if $args{'not_empty'} and not -s $filename
|
|
195
|
1 |
214 |
unless open $_[0], $mode, $filename
|
|
198
|
0 |
214 |
unless -f $f
|
|
199
|
0 |
214 |
if $args{'not_empty'} and not -s $f
|
|
201
|
34 |
180 |
if $args{'binary'}
|
|
210
|
3 |
0 |
if ($args{'use_filename_encoding'})
|
|
213
|
0 |
3 |
unless -f $filename
|
|
221
|
0 |
0 |
if ($args{'use_filename_encoding'})
|
|
231
|
20 |
0 |
if ($args{'use_filename_encoding'})
|
|
234
|
0 |
20 |
unless -f $filename
|
|
243
|
98 |
196 |
if ($args{'use_filename_encoding'})
|
|
246
|
0 |
294 |
unless -e $filename
|
|
253
|
88 |
541 |
if defined $_[0] and utf8::is_utf8($_[0])
|
|
260
|
696 |
1673 |
if utf8::is_utf8($_[0]) and &bytes::length($_[0]) == length $_[0]
|
|
275
|
133 |
19 |
if (defined $i) { }
|
|
|
14 |
5 |
elsif ($!{'EINTR'}) { }
|
|
276
|
17 |
116 |
if ($i == 0) { }
|
|
284
|
3 |
2 |
$n ? :
|
|
299
|
0 |
64 |
if is_wide_string($_[1])
|
|
303
|
66 |
8 |
if (defined $i) { }
|
|
|
3 |
5 |
elsif ($!{'EINTR'}) { }
|
|
308
|
2 |
3 |
$n ? :
|
|
326
|
68 |
442 |
if $isutf
|
|
344
|
0 |
19 |
if ($req->content_type ne 'application/octet-stream' and $req->content and length $req->content)
|
|
349
|
0 |
19 |
if $resp->protocol
|
|
353
|
0 |
0 |
if ($resp->content_type eq 'application/json' and $resp->content and length $resp->content)
|
|
373
|
23728 |
0 |
if is_64bit_os()
|
|
381
|
26248 |
7 |
if defined $_is_y2038_supported
|