config root man

package Apache::RegistryBB;

use strict;
use vars qw(@ISA);
use Apache::Constants qw(NOT_FOUND FORBIDDEN OK DECLINED);
use Apache::RegistryNG (); 
@ISA = qw(Apache::RegistryNG);

#Apache::Registry - Bare-Bones
#configure like so:
# PerlModule Apache::RegistryBB
# <Location /perl>
# SetHandler perl-script
# PerlHandler ApacheRegistryBB->handler
# </Location>

#skip -x, OPT_EXEC, etc. checks
sub can_compile {
    my $r = shift->{r};
    unless (-r $r->finfo) {
	$r->log_reason("file does not exist");
	return NOT_FOUND;
    }
    if (-d _) {
	$r->log_reason("attempt to invoke directory as script");
	return DECLINED;
    }
    return OK;
}

#only cache once, don't re-compile if updated on disk
sub should_compile {
    not shift->cached;
}

#don't chdir() to the script file directory
sub chdir_file {
   #noop
}

1;

__END__