diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-07-18 01:09:23 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-07-18 01:09:23 -0500 |
commit | 292726f51ea3d8e83c197c5de36ccbdec9a5ca86 (patch) | |
tree | 6908d7cf735da443917e72fbbec6f2a153aa0e37 | |
parent | 37403268a44d1d041e0f0962e0e356e7a878f6d3 (diff) | |
download | web-request-292726f51ea3d8e83c197c5de36ccbdec9a5ca86.tar.gz web-request-292726f51ea3d8e83c197c5de36ccbdec9a5ca86.zip |
need to decode these too
-rw-r--r-- | lib/Web/Request.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm index e089b31..66c9f80 100644 --- a/lib/Web/Request.pm +++ b/lib/Web/Request.pm @@ -210,7 +210,7 @@ has content => ( # XXX get Plack::TempBuffer onto CPAN separately, so that this doesn't # always have to be sitting in memory - return $self->_parsed_body->{content}; + return $self->decode($self->_parsed_body->{content}); }, ); @@ -258,7 +258,7 @@ has body_parameters => ( my $ret = {}; for my $key (keys %$body) { my $val = $body->{$key}; - $ret->{$key} = ref($val) ? $val->[-1] : $val; + $ret->{$key} = $self->decode(ref($val) ? $val->[-1] : $val); } return $ret; @@ -277,7 +277,9 @@ has all_body_parameters => ( my $ret = {}; for my $key (keys %$body) { my $val = $body->{$key}; - $ret->{$key} = ref($val) ? $val : [ $val ]; + $ret->{$key} = ref($val) + ? [ map { $self->decode($_) } @$val ] + : [ $self->decode($val) ]; } return $ret; |