X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FApache%2FBase.pm;fp=lib%2FCatalyst%2FEngine%2FApache%2FBase.pm;h=bcf8458f09989d23fc441d70f3ef8d0d8e4989b0;hb=316bf0f004c0de103e628994a4384e6cf4b45377;hp=8d383da7d3005b2c76fd4d39a6bab3453531acb2;hpb=e2adaa166c94d83075815f61e7c90bd4b48cd625;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/Apache/Base.pm b/lib/Catalyst/Engine/Apache/Base.pm index 8d383da..bcf8458 100644 --- a/lib/Catalyst/Engine/Apache/Base.pm +++ b/lib/Catalyst/Engine/Apache/Base.pm @@ -91,24 +91,6 @@ sub prepare_headers { $c->request->header( %{ $c->apache->headers_in } ); } -=item $c->prepare_parameters - -=cut - -sub prepare_parameters { - my $c = shift; - - my @params; - - $c->apache->param->do( sub { - my ( $field, $value ) = @_; - push( @params, $field, $value ); - return 1; - }); - - $c->request->param(@params); -} - =item $c->prepare_path =cut @@ -147,6 +129,15 @@ sub prepare_path { $c->req->path($path); } +=item $c->prepare_request($r) + +=cut + +sub prepare_request { + my ( $c, $r ) = @_; + $c->apache($r); +} + =item $c->run =cut