File Coverage

blib/lib/POE/Component/Server/HTTPServer/ParameterParseHandler.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	6	0.0
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	25	48	52.0

package POE::Component::Server::HTTPServer::ParameterParseHandler;
use strict;
use HTTP::Status;
use MIME::Types;
use URI::Escape qw(uri_unescape);
use POE::Component::Server::HTTPServer::Handler;
use base 'POE::Component::Server::HTTPServer::Handler';

#
# problems to fix:
#   multi-valued params
#   mutlipart form data
#   the hash copying at the end of the POST handling could be more efficient
#
sub handle {
  my $self = shift;
  my $context = shift;
  my $req = $context->{request};
  # technically, for POST requests we could ignore (uri-)query params
  # might as well grab them, though
  my %p = $req->uri->query_form;
  $context->{param} = \%p;
  if ( $req->method eq 'POST' ) {
    if ( $req->content_type ne 'application/x-www-form-urlencoded' ) {
      print "XXX Don't know how to handle POST content encoding: ",
	$req->content_type, "\n";
    } else {
      my $querydata = $req->content;
      # following mapmap stolen from URI::_query
      my %bodyp =  map { s/\+/ /g; uri_unescape($_) }
	map { /=/ ? split(/=/, $_, 2) : ($_ => '')} split(/&/, $querydata);
      foreach my $k (keys %bodyp) {
	$context->{param}->{$k} = $bodyp{$k};
      }
    }
  }
  return H_CONT;
}

1;
__END__