X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FCGI%2FAPR.pm;h=964e8791eadf50addcf717764348751eefc3b8ea;hb=e2fd5b5f162a33895ad401a8d31fca481c478a8c;hp=9162afbf595c7ae4ab1282a691d31ee96b507c71;hpb=e05d67cffac3d0773879bf02aa0f278c2213fee4;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/CGI/APR.pm b/lib/Catalyst/Engine/CGI/APR.pm
index 9162afb..964e879 100644
--- a/lib/Catalyst/Engine/CGI/APR.pm
+++ b/lib/Catalyst/Engine/CGI/APR.pm
@@ -9,6 +9,8 @@ use APR::Request;
 use APR::Request::CGI;
 use APR::Request::Param;
 
+__PACKAGE__->mk_accessors('apr');
+
 =head1 NAME
 
 Catalyst::Engine::CGI::APR - The CGI APR Engine
@@ -31,7 +33,17 @@ A script using the Catalyst::Engine::CGI::APR module might look like:
 
 =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
 
@@ -48,7 +60,7 @@ sub prepare_parameters {
 
     my @params;
 
-    $c->cgi->param->do( sub {
+    $c->apr->param->do( sub {
         my ( $field, $value ) = @_;
         push( @params, $field, $value );
         return 1;    
@@ -63,7 +75,7 @@ sub prepare_parameters {
 
 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
@@ -75,7 +87,7 @@ sub prepare_uploads {
 
     my @uploads;
 
-    $c->cgi->upload->do( sub {
+    $c->apr->upload->do( sub {
         my ( $field, $upload ) = @_;
 
         my $object = Catalyst::Request::Upload->new(
@@ -97,7 +109,7 @@ sub prepare_uploads {
 
 =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