| line |
true |
false |
branch |
|
9
|
0 |
1 |
unless $header =~ m[^multipart/form-data\s*;\s*boundary\s*=(.+)$]u |
|
12
|
0 |
1 |
unless $boundary =~ /^[\x21-\x7e]+$/u |
|
18
|
3 |
1 |
if @a |
|
19
|
1 |
3 |
unless ($hdrs) |
|
20
|
0 |
1 |
if pos $data != CORE::length $data |
|
29
|
0 |
3 |
unless $hdrs =~ /content-disposition:\s*form-data(.+)/iu |
|
32
|
0 |
3 |
unless $v =~ /;\s*name\s*=\s*$pvalue/u |
|
34
|
2 |
1 |
if $v =~ /;\s*filename\s*=\s*$pvalue/u |
|
36
|
3 |
0 |
if ($hdrs =~ /content-type:\s*$pvalue(?:\s*;\s*charset\s*=\s*$pvalue)?/iu) |
|
38
|
2 |
1 |
if $2 |
|
42
|
0 |
1 |
if @a and not defined $a[$#a]{'length'} |
|
53
|
3 |
6 |
if $off < 0 |
|
54
|
1 |
8 |
if $off < 0 |
|
55
|
0 |
9 |
if $off > $o->{'length'} |
|
58
|
1 |
8 |
if $len < 0 |
|
59
|
0 |
9 |
if $len < 0 |
|
60
|
1 |
8 |
if $len > $o->{'length'} - $off |
|
73
|
0 |
0 |
unless defined $r |
|
80
|
0 |
0 |
unless open my $F, ">", $fn |
|
81
|
0 |
0 |
unless defined $o->syswrite($F) |
|
86
|
0 |
0 |
if (defined $head and $head =~ /\n/u) { } |
|
|
0 |
0 |
elsif (defined $head and $o->{'length'} > 100) { } |
|
95
|
0 |
0 |
$o->{'filename'} ? : |
|
|
0 |
0 |
$o->{'mime'} ? : |
|
|
0 |
0 |
$o->{'charset'} ? : |
|
|
0 |
0 |
defined $head ? : |