2 use warnings FATAL => 'all';
4 use Test::More qw(no_plan);
6 use Web::Simple::ParamParser;
8 use Data::Dumper::Concise;
10 my $param_sample = 'foo=bar&baz=quux&foo=%2F';
22 Web::Simple::ParamParser::_unpack_params('foo=bar&baz=quux&foo=%2F'),
27 my $env = { 'QUERY_STRING' => $param_sample };
30 Web::Simple::ParamParser::get_unpacked_query_from($env),
36 $env->{+Web::Simple::ParamParser::UNPACKED_QUERY},