sub get_unpacked_body_from {
return $_[0]->{+UNPACKED_BODY} ||= do {
+ ## would really like to check to make sure it processes charset stuff appropriately
+ ## add tests for such. Long story short, I'm looking at making sure we're good for this:
+ ## https://gist.github.com/fc3d095dfd089762ed62
if (index(lc($_[0]->{CONTENT_TYPE}||''), 'application/x-www-form-urlencoded') >= 0
and defined $_[0]->{CONTENT_LENGTH}) {
$_[0]->{'psgi.input'}->read(my $buf, $_[0]->{CONTENT_LENGTH});