use strict;
use base 'Catalyst::Engine::CGI';
use FCGI;
-use NEXT;
=head1 NAME
=head1 SYNOPSIS
-See L<Catalyst>.
+A script using the Catalyst::Engine::FCGI module might look like:
+
+ #!/usr/bin/perl -w
+
+ BEGIN {
+ $ENV{CATALYST_ENGINE} = 'FCGI';
+ }
+
+ use strict;
+ use lib '/path/to/MyApp/lib';
+ use MyApp;
+
+ MyApp->run;
=head1 DESCRIPTION
my $class = shift;
my $request = FCGI::Request();
while ( $request->Accept() >= 0 ) {
- my $output;
- {
- local (*STDOUT);
- open( STDOUT, '>', \$output );
- $class->NEXT::run;
- }
- $output =~ s!^HTTP/\d+.\d+ \d\d\d.*?\n!!s;
- print $output;
+ $class->handler;
}
}