| line |
true |
false |
branch |
|
36
|
8 |
14 |
if @_ and ref $_[0] |
|
39
|
11 |
15 |
if (lc $k eq 'content') { } |
|
47
|
11 |
11 |
$ct ? : |
|
54
|
14 |
8 |
if (ref $content) |
|
55
|
7 |
7 |
if ($ct =~ m[^multipart/form-data\s*(;|$)]i) { } |
|
58
|
0 |
7 |
if @v > 1 |
|
65
|
1 |
7 |
if ($k eq "boundary") |
|
74
|
1 |
6 |
if ($boundary_index) { } |
|
88
|
4 |
3 |
ref $content eq 'HASH' ? : |
|
92
|
5 |
2 |
if defined $content |
|
97
|
17 |
5 |
if (defined $content) { } |
|
98
|
16 |
1 |
unless ref $content |
|
116
|
2 |
3 |
if (lc $k eq 'content') { } |
|
124
|
1 |
4 |
if ($content and not defined $req->header("Content-Length")) |
|
134
|
0 |
7 |
ref $data eq 'HASH' ? : |
|
138
|
12 |
4 |
if (not ref $v) { } |
|
146
|
3 |
1 |
unless (defined $usename) |
|
148
|
2 |
1 |
if defined $usename |
|
152
|
3 |
1 |
if (defined $usename and length $usename) |
|
158
|
2 |
2 |
if ($file) |
|
159
|
0 |
2 |
unless open my $fh, "<", $file |
|
161
|
1 |
1 |
if ($DYNAMIC_FILE_UPLOAD) { } |
|
172
|
2 |
0 |
unless ($h->header("Content-Type")) |
|
177
|
0 |
4 |
if ($h->header("Content-Disposition")) |
|
182
|
2 |
2 |
if ($h->header("Content")) |
|
189
|
1 |
3 |
if (ref $content) { } |
|
198
|
1 |
6 |
unless @parts |
|
201
|
1 |
5 |
if ($fhparts) { } |
|
202
|
1 |
0 |
unless $boundary |
|
215
|
1 |
10 |
if (ref $_) { } |
|
218
|
0 |
1 |
unless (-f $f and $file_size = -s _) |
|
233
|
1 |
0 |
if $length |
|
238
|
1 |
7 |
unless (@parts) |
|
239
|
0 |
1 |
if defined $length and $length != 0 |
|
244
|
2 |
5 |
unless (ref $p) |
|
246
|
2 |
0 |
if defined $length |
|
250
|
1 |
4 |
unless (ref $fh) |
|
253
|
0 |
1 |
unless open $fh, "<", $file |
|
258
|
4 |
1 |
if ($n) { } |
|
265
|
4 |
1 |
if ($buflength) |
|
266
|
4 |
0 |
if defined $length |
|
274
|
4 |
1 |
unless $boundary |
|
280
|
0 |
11 |
if (index($_, $boundary) >= 0) |
|
293
|
6 |
0 |
wantarray ? : |