line |
true |
false |
branch |
48
|
0 |
0 |
unless (my $req = $$self{'req'} = 'HTTP::Request'->parse($hdr)) |
59
|
0 |
0 |
if (my(@qp) = $req->uri->query_form) |
69
|
0 |
0 |
if ($ct and $req->method eq 'POST' and $ct ~~ ['application/x-www-form-urlencoded', 'multipart/form-data']) { } |
78
|
0 |
0 |
if $$self{'info'} |
86
|
0 |
0 |
if $offset |
88
|
0 |
0 |
if (($data // '') eq '') { } |
|
0 |
0 |
elsif ($$self{'btype'}) { } |
92
|
0 |
0 |
if (not $$self{'btype'}) { } |
|
0 |
0 |
elsif ($$self{'btype'} eq 'application/x-www-form-urlencoded') { } |
|
0 |
0 |
elsif ($$self{'btype'} eq 'multipart/form-data') { } |
98
|
0 |
0 |
unless defined $_ |
109
|
0 |
0 |
unless ($boundary) |
123
|
0 |
0 |
unless $part =~ /\A(.*?(\r?\n))\2(.*)/s |
126
|
0 |
0 |
unless (my($cd) = $hdr =~ /^Content-Disposition:[ \t]*(.*(?:\r?\n[ \t].*)*)/im) |
132
|
0 |
0 |
unless ($name) |
138
|
0 |
0 |
if $fname |
163
|
0 |
0 |
unless my $info = $$self{'info'} |
167
|
0 |
0 |
if (eval {
do {
require YAML
}
}) { } |
|
0 |
0 |
elsif (eval {
do {
require YAML::Tiny
}
}) { } |
|
0 |
0 |
elsif (eval {
do {
require Data::Dumper
}
}) { } |