| line |
true |
false |
branch |
|
30
|
0 |
0 |
if @_ and ref $_[0] |
|
33
|
0 |
0 |
if (lc $k eq 'content') { } |
|
41
|
0 |
0 |
if (not $ct) { } |
|
|
0 |
0 |
elsif ($ct eq 'form-data') { } |
|
48
|
0 |
0 |
if (ref $content) |
|
49
|
0 |
0 |
if ($ct =~ m[^multipart/form-data\s*(;|$)]i) { } |
|
52
|
0 |
0 |
if @v > 1 |
|
59
|
0 |
0 |
if ($k eq 'boundary') |
|
68
|
0 |
0 |
if ($boundary_index) { } |
|
82
|
0 |
0 |
ref $content eq 'HASH' ? : |
|
86
|
0 |
0 |
if defined $content |
|
91
|
0 |
0 |
if (defined $content) { } |
|
92
|
0 |
0 |
unless ref $content |
|
110
|
0 |
0 |
if (lc $k eq 'content') { } |
|
118
|
0 |
0 |
if ($content and not defined $req->header('Content-Length')) |
|
128
|
0 |
0 |
ref $data eq 'HASH' ? : |
|
133
|
0 |
0 |
if (not ref $v) { } |
|
140
|
0 |
0 |
unless (defined $usename) |
|
142
|
0 |
0 |
if defined $usename |
|
146
|
0 |
0 |
if (defined $usename and length $usename) |
|
152
|
0 |
0 |
if ($file) |
|
153
|
0 |
0 |
unless open my $fh, '<', $file |
|
155
|
0 |
0 |
if ($HTTP::Request::Common::DYNAMIC_FILE_UPLOAD) { } |
|
166
|
0 |
0 |
unless ($h->header('Content-Type')) |
|
171
|
0 |
0 |
if ($h->header('Content-Disposition')) |
|
176
|
0 |
0 |
if ($h->header('Content')) |
|
183
|
0 |
0 |
if (ref $content) { } |
|
192
|
0 |
0 |
unless @parts |
|
195
|
0 |
0 |
if ($fhparts) { } |
|
196
|
0 |
0 |
unless $boundary |
|
209
|
0 |
0 |
if (ref $_) { } |
|
212
|
0 |
0 |
unless (-f $f and $file_size = -s _) |
|
227
|
0 |
0 |
if $length |
|
232
|
0 |
0 |
unless (@parts) |
|
233
|
0 |
0 |
if defined $length and $length != 0 |
|
238
|
0 |
0 |
unless (ref $p) |
|
240
|
0 |
0 |
if defined $length |
|
244
|
0 |
0 |
unless (ref $fh) |
|
247
|
0 |
0 |
unless open $fh, '<', $file |
|
252
|
0 |
0 |
if ($n) { } |
|
259
|
0 |
0 |
if ($buflength) |
|
260
|
0 |
0 |
if defined $length |
|
268
|
0 |
0 |
unless $boundary |
|
274
|
0 |
0 |
if (index($_, $boundary) >= 0) |
|
287
|
0 |
0 |
wantarray ? : |