sub get_unpacked_query_from {
return ($_[0]->{+ORIG_ENV}||$_[0])->{+UNPACKED_QUERY} ||= do {
my $p = _unpack_params($_[0]->{QUERY_STRING});
- unless (keys %$p == 1 and exists $p->{j} and ref($p->{j}) eq 'ARRAY' and @{$p->{j}} == 1 and $p->{j} =~ /^{/) {
+ unless (keys %$p == 1 and exists $p->{j} and ref($p->{j}) eq 'ARRAY' and @{$p->{j}} == 1 and $p->{j}[0] =~ /^{/) {
$p;
} else {
require JSON::MaybeXS;
my $query_json = run_request(GET 'http://localhost?j={"foo": "bar"}');
-is($query_simple->content, 'bar', 'json query string ok');
+is($query_json->content, 'bar', 'json query string ok');