use APR::Request::CGI;
use APR::Request::Param;
+__PACKAGE__->mk_accessors('apr');
+
=head1 NAME
Catalyst::Engine::CGI::APR - The CGI APR Engine
=head1 DESCRIPTION
-This Catalyst engine uses C<APR::Request> for parsing of message body.
+This Catalyst engine uses C<APR::Request::CGI> for parsing of message body.
+
+=head1 METHODS
+
+=over 4
+
+=item $c->apr
+
+Contains the C<APR::Request::CGI> object.
+
+=back
=head1 OVERLOADED METHODS
my @params;
- $c->cgi->param->do( sub {
+ $c->apr->param->do( sub {
my ( $field, $value ) = @_;
push( @params, $field, $value );
return 1;
sub prepare_request {
my $c = shift;
- $c->cgi( APR::Request::CGI->new( APR::Pool->new ) );
+ $c->apr( APR::Request::CGI->handle( APR::Pool->new ) );
}
=item $c->prepare_uploads
my @uploads;
- $c->cgi->upload->do( sub {
+ $c->apr->upload->do( sub {
my ( $field, $upload ) = @_;
my $object = Catalyst::Request::Upload->new(
=head1 SEE ALSO
-L<Catalyst> L<Catalyst::Engine> L<Catalyst::Engine::CGI::Base> L<APR::Request>.
+L<Catalyst>, L<APR::Request::CGI>, L<Catalyst::Engine::CGI::Base>.
=head1 AUTHOR