| line |
true |
false |
branch |
|
50
|
0 |
0 |
unless (my $req = $$self{'req'} = 'HTTP::Request'->parse($hdr)) |
|
61
|
0 |
0 |
if (my(@qp) = $req->uri->query_form) |
|
71
|
0 |
0 |
if ($ct and $req->method eq 'POST' and $ct ~~ ['application/x-www-form-urlencoded', 'multipart/form-data']) { } |
|
80
|
0 |
0 |
if $$self{'info'} |
|
88
|
0 |
0 |
if $offset |
|
90
|
0 |
0 |
if (($data // '') eq '') { } |
|
|
0 |
0 |
elsif ($$self{'btype'}) { } |
|
94
|
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') { } |
|
100
|
0 |
0 |
unless defined $_ |
|
111
|
0 |
0 |
unless ($boundary) |
|
125
|
0 |
0 |
unless $part =~ /\A(.*?(\r?\n))\2(.*)/s |
|
128
|
0 |
0 |
unless (my($cd) = $hdr =~ /^Content-Disposition:[ \t]*(.*(?:\r?\n[ \t].*)*)/im) |
|
134
|
0 |
0 |
unless ($name) |
|
140
|
0 |
0 |
if $fname |
|
165
|
0 |
0 |
unless my $info = $$self{'info'} |
|
169
|
0 |
0 |
if (eval {
do {
require YAML
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
require YAML::Tiny
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
require Data::Dumper
}
}) { } |