#!/usr/bin/perl
# handler.pl
package HTML::Mason;
use HTML::Mason;
use HTML::Mason::ApacheHandler;
use strict;
{
package HTML::Mason::Commands;
use DBI ();
use CGI ();
}
DBI->install_driver('mysql');
CGI->compile(':standard');
my $ah = HTML::Mason::ApacheHandler->new(
comp_root => '/path/to/comp/root',
data_dir => '/path/to/data/dir'
);
sub handler {
my ($r) = @_;
return $ah->handle_request($r);
}
1;
####
PerlRequire /path/to/handler.pl