File Coverage

blib/lib/CGI/Application/FastCGI.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	3	33.3
total	17	35	48.5

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;

__END__