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