2 use warnings FATAL => 'all';
4 use Test::More qw(no_plan);
6 use Web::Dispatch::ParamParser;
8 my $param_sample = 'foo=bar&baz=quux&foo=%2F';
20 Web::Dispatch::ParamParser::_unpack_params('foo=bar&baz=quux&foo=%2F'),
25 my $env = { 'QUERY_STRING' => $param_sample };
28 Web::Dispatch::ParamParser::get_unpacked_query_from($env),
34 $env->{+Web::Dispatch::ParamParser::UNPACKED_QUERY},
39 sub FakeBody::param { { baz => "quux", foo => [ "bar", "/" ] } }
42 CONTENT_TYPE => "multipart/form-data",
44 +Web::Dispatch::ParamParser::UNPACKED_BODY_OBJECT => [ bless {}, "FakeBody" ]
48 Web::Dispatch::ParamParser::get_unpacked_body_from($body_env),
50 'Body cached multipart ok'