view release on metacpan or  search on metacpan

lib/Apache/Handlers.pm  view on Meta::CPAN

}

my $yet_initialized = 0;

sub reset {
  &run_phase( qw: RESTART :);
  %code = ( );
  $yet_initialized = 0;
}

sub handler($) {
  my($r) = @_;

  return SERVER_ERROR
    if not $yet_initialized and run_phase(qw: CHILDINIT :) == SERVER_ERROR;

  $yet_initialized = 1;

  return OK if $r -> current_callback() eq 'PerlChildInitHandler';

  # install handlers