| line |
true |
false |
branch |
|
29
|
0 |
3 |
if @_ and ref $_[0]
|
|
32
|
2 |
3 |
if (lc $k eq 'content') { }
|
|
40
|
3 |
0 |
if (not $ct) { }
|
|
|
0 |
0 |
elsif ($ct eq 'form-data') { }
|
|
47
|
2 |
1 |
if (ref $content)
|
|
48
|
0 |
2 |
if ($ct =~ m[^multipart/form-data\s*(;|$)]i) { }
|
|
51
|
0 |
0 |
if @v > 1
|
|
58
|
0 |
0 |
if (lc $k eq 'boundary')
|
|
67
|
0 |
0 |
if ($boundary_index) { }
|
|
81
|
0 |
2 |
ref $content eq 'HASH' ? :
|
|
87
|
2 |
1 |
if (defined $content) { }
|
|
88
|
2 |
0 |
unless ref $content
|
|
105
|
0 |
0 |
if (lc $k eq 'content') { }
|
|
120
|
0 |
0 |
ref $data eq 'HASH' ? :
|
|
125
|
0 |
0 |
if (not ref $v) { }
|
|
132
|
0 |
0 |
unless (defined $usename)
|
|
134
|
0 |
0 |
if defined $usename
|
|
138
|
0 |
0 |
if (defined $usename and length $usename)
|
|
144
|
0 |
0 |
if ($file)
|
|
147
|
0 |
0 |
unless open $fh, $file
|
|
149
|
0 |
0 |
if ($HTTP::Request::Common::DYNAMIC_FILE_UPLOAD) { }
|
|
158
|
0 |
0 |
unless ($h->header('Content-Type'))
|
|
163
|
0 |
0 |
if ($h->header('Content-Disposition'))
|
|
168
|
0 |
0 |
if ($h->header('Content'))
|
|
175
|
0 |
0 |
if (ref $content) { }
|
|
184
|
0 |
0 |
unless @parts
|
|
187
|
0 |
0 |
if ($fhparts) { }
|
|
188
|
0 |
0 |
unless $boundary
|
|
201
|
0 |
0 |
if (ref $_) { }
|
|
204
|
0 |
0 |
unless (-f $f and $file_size = -s _)
|
|
219
|
0 |
0 |
if $length
|
|
224
|
0 |
0 |
unless (@parts)
|
|
225
|
0 |
0 |
if defined $length and $length != 0
|
|
230
|
0 |
0 |
unless (ref $p)
|
|
232
|
0 |
0 |
if defined $length
|
|
238
|
0 |
0 |
if ($n) { }
|
|
245
|
0 |
0 |
if ($buflength)
|
|
246
|
0 |
0 |
if defined $length
|
|
254
|
0 |
0 |
unless $boundary
|
|
260
|
0 |
0 |
if (index($_, $boundary) >= 0)
|
|
273
|
0 |
0 |
wantarray ? :
|