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
}
}) { } |