![]() |
![]()
| ![]() |
![]()
NAMEHTTP::Body - HTTP Body Parser SYNOPSISuse HTTP::Body; sub handler : method { my ( $class, $r ) = @_; my $content_type = $r->headers_in->get('Content-Type'); my $content_length = $r->headers_in->get('Content-Length'); my $body = HTTP::Body->new( $content_type, $content_length ); my $length = $content_length; while ( $length ) { $r->read( my $buffer, ( $length < 8192 ) ? $length : 8192 ); $length -= length($buffer); $body->add($buffer); } my $uploads = $body->upload; # hashref my $params = $body->param; # hashref my $param_order = $body->param_order # arrayref my $body = $body->body; # IO::Handle } DESCRIPTIONHTTP::Body parses chunks of HTTP POST data and supports application/octet-stream, application/json, application/x-www-form-urlencoded, and multipart/form-data. Chunked bodies are supported by not passing a length value to new(). It is currently used by Catalyst, Dancer, Maypole, Web::Simple and Jedi. NOTESWhen parsing multipart bodies, temporary files are created to store any uploaded files. You must delete these temporary files yourself after processing them, or set $body->cleanup(1) to automatically delete them at DESTROY-time. With version 1.23, we have changed the basic behavior of how temporary files are prepared for uploads. The extension of the file is no longer transferred to the temporary file, the extension will always be ".upload". We have also introduced variables that make it possible to set the behavior as required.
METHODS
SUPPORTSince its original creation this module has been taken over by the Catalyst development team. If you need general support using this module: IRC: Join #catalyst on irc.perl.org. Mailing Lists: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst If you want to contribute patches, these will be your primary contact points: IRC: Join #catalyst-dev on irc.perl.org. Mailing Lists: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev AUTHORChristian Hansen, "chansen@cpan.org" Sebastian Riedel, "sri@cpan.org" Andy Grundman, "andy@hybridized.org" CONTRIBUTORSSimon Elliott "cpan@papercreatures.com" Kent Fredric "kentnl@cpan.org" Christian Walde "walde.christian@gmail.com" Torsten Raudssus "torsten@raudssus.de" LICENSEThis library is free software. You can redistribute it and/or modify it under the same terms as perl itself.
|