| line |
true |
false |
branch |
|
16
|
148 |
28 |
if (/\A form-data; \s name="((?:[^"]|\\")*)" (?: ;\s filename="((?:[^"]|\\")*)" )? \z/x) |
|
22
|
2 |
26 |
unless s/\A \s* form-data \s* ; //xi |
|
30
|
3 |
46 |
if s/^ [^\s"=;]* \s* ; //x |
|
33
|
2 |
44 |
unless s/^ ([^\s"=;]+) \s* = \s* //x |
|
37
|
28 |
16 |
if (s/^ "((?:[^"]|\\")*)" \s* (?: ; | $) //x) { } |
|
|
15 |
1 |
elsif (s/^ ([^\s";]*) \s* (?: ; | $) //x) { } |
|
47
|
36 |
7 |
if ($k eq 'name' or $k eq 'filename') |
|
48
|
2 |
34 |
if exists $p{$k} |
|
52
|
20 |
1 |
exists $p{'name'} ? : |
|
63
|
0 |
63 |
unless (defined $env->{'CONTENT_TYPE'}) |
|
66
|
0 |
63 |
unless ($env->{'CONTENT_TYPE'} =~ /boundary=\"?([^\";]+)\"?/) |
|
80
|
176 |
0 |
if (/\A Content-Disposition: [\x09\x20]* (.*)/xi) |
|
86
|
0 |
176 |
unless defined $disposition |
|
90
|
8 |
168 |
unless defined $disposition_name |
|
98
|
88 |
80 |
if (defined $disposition_filename) |
|
116
|
138 |
96 |
if ($fh) { } |
|
117
|
0 |
138 |
unless print $fh $chunk |
|
119
|
71 |
67 |
if ($final and $part->{'filename'} ne '') |
|
120
|
0 |
71 |
unless seek $fh, 0, 0 |
|
135
|
80 |
16 |
if ($final) |
|
140
|
0 |
63 |
$opts->{'on_error'} ? : |
|
152
|
6987 |
0 |
if defined $_[0] |