X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FFastCGI%2FBase.pm;fp=lib%2FCatalyst%2FEngine%2FFastCGI%2FBase.pm;h=e3315dc67cb4ce8bb2ee42f1969a350919b1af72;hb=e2fd5b5f162a33895ad401a8d31fca481c478a8c;hp=ee353b0c9a557bdcae6dacc7282f3ba90fa4fdd1;hpb=02a53b81a62d7559d61f5dffbc57be0713c05129;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/FastCGI/Base.pm b/lib/Catalyst/Engine/FastCGI/Base.pm
index ee353b0..e3315dc 100644
--- a/lib/Catalyst/Engine/FastCGI/Base.pm
+++ b/lib/Catalyst/Engine/FastCGI/Base.pm
@@ -1,8 +1,12 @@
 package Catalyst::Engine::FastCGI::Base;
 
 use strict;
+use base 'Catalyst::Engine::CGI::Base';
+
 use FCGI;
 
+__PACKAGE__->mk_accessors('fastcgi');
+
 =head1 NAME
 
 Catalyst::Engine::FastCGI::Base - Base class for FastCGI Engines
@@ -15,15 +19,38 @@ This is a base class for FastCGI engines.
 
 =over 4
 
+=item $c->fastcgi
+
+Contains the C<FCGI::Request> object.
+
+=back
+
+=head1 OVERLOADED METHODS
+
+This class overloads some methods from C<Catalyst::Engine::CGI::Base>.
+
+=over 4
+
+=item $c->prepare_request
+
+=cut
+
+sub prepare_request {
+    my ( $c, $fastcgi ) = @_;
+    $c->fastcgi($fastcgi);
+}
+
 =item $c->run
 
 =cut
 
 sub run {
-    my $class   = shift;
+    my ( $class, @arguments ) = @_;
+    
     my $request = FCGI::Request();
-    while ( $request->Accept() >= 0 ) {
-        $class->handler;
+    
+    while ( $request->Accept >= 0 ) {
+        $class->handler( $request, @arguments );
     }
 }
 
@@ -31,7 +58,7 @@ sub run {
 
 =head1 SEE ALSO
 
-L<Catalyst>.
+L<Catalyst>, L<FCGI>, L<Catalyst::Engine::CGI::Base>.
 
 =head1 AUTHOR