| 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' ? : |
|
88
|
0 |
0 |
if (defined $content) { } |
|
89
|
0 |
0 |
unless ref $content |
|
106
|
0 |
0 |
if (lc $k eq 'content') { } |
|
121
|
0 |
0 |
ref $data eq 'HASH' ? : |
|
126
|
0 |
0 |
if (not ref $v) { } |
|
133
|
0 |
0 |
unless (defined $usename) |
|
135
|
0 |
0 |
if defined $usename |
|
139
|
0 |
0 |
if (defined $usename and length $usename) |
|
145
|
0 |
0 |
if ($file) |
|
146
|
0 |
0 |
unless open my $fh, '<', $file |
|
148
|
0 |
0 |
if ($HTTP::Request::Common::DYNAMIC_FILE_UPLOAD) { } |
|
159
|
0 |
0 |
unless ($h->header('Content-Type')) |
|
164
|
0 |
0 |
if ($h->header('Content-Disposition')) |
|
169
|
0 |
0 |
if ($h->header('Content')) |
|
176
|
0 |
0 |
if (ref $content) { } |
|
185
|
0 |
0 |
unless @parts |
|
188
|
0 |
0 |
if ($fhparts) { } |
|
189
|
0 |
0 |
unless $boundary |
|
202
|
0 |
0 |
if (ref $_) { } |
|
205
|
0 |
0 |
unless (-f $f and $file_size = -s _) |
|
220
|
0 |
0 |
if $length |
|
225
|
0 |
0 |
unless (@parts) |
|
226
|
0 |
0 |
if defined $length and $length != 0 |
|
231
|
0 |
0 |
unless (ref $p) |
|
233
|
0 |
0 |
if defined $length |
|
237
|
0 |
0 |
unless (ref $fh) |
|
240
|
0 |
0 |
unless open $fh, '<', $file |
|
245
|
0 |
0 |
if ($n) { } |
|
252
|
0 |
0 |
if ($buflength) |
|
253
|
0 |
0 |
if defined $length |
|
261
|
0 |
0 |
unless $boundary |
|
267
|
0 |
0 |
if (index($_, $boundary) >= 0) |
|
280
|
0 |
0 |
wantarray ? : |