package Example::AccessHandler; use Apache::Constants qw(:common FORBIDDEN);
sub handler { my ($class, $r) = @_; if (goodconditions($r)) { return OK; } else { return FORBIDDEN; } }