package PLP::FastCGI;

use strict;

use PLP::CGI;
use FCGI;
use base 'PLP::CGI';

our $VERSION = '1.00';

sub import {
	my $self = shift;
	my $request = FCGI::Request();
	while ($request->Accept() >= 0) {
		$PLP::use_cache = !defined $ENV{PLP_CACHE} || $ENV{PLP_CACHE}; # before it's clean()ed
		delete $ENV{PATH_TRANSLATED};
		$self->everything();
	}
}

1;

