sub handler {
my $app = MyCGIAppSubclass->new;
$app->run;
}
####
my $app = MyCGIAppSubclass->new;
sub handler {
$app->run;
}
##
##
package CGI::Application::FastCGI;
use strict;
use base qw (CGI::Application);
use FCGI;
use CGI;
our $VERSION = '0.02';
sub run {
my $self = shift;
my $request = FCGI::Request();
$self->fastcgi($request);
while ($request->Accept >= 0) {
$self->reset_query;
$self->SUPER::run;
}
}
sub reset_query {
my $self = shift;
CGI::_reset_globals();
$self->{__QUERY_OBJ} = $self->cgiapp_get_query;
}
sub fastcgi {
my $self = shift;
@_ ? $self->{__FASTCGI} = shift : $self->{__FASTCGI};
}
1;