##
PerlModule CENSORED
####
package NotQuiteApache;
use v5.12;
use warnings;
sub new
{
my $class=shift;
my $self=bless {},$class;
# you may need to add some FCGI init here
# you may need to add some data to %$self.
return $self;
}
sub print
{
my $self=shift;
return CORE::print @_;
}
# you may need to add more wrapper methods here
1;
####
# ...
use NotQuiteApache;
# ...
my $r=NotQuiteApache->new();
# ...
$r->print("Hello World!");
# ...