| package TestExit::FromPerlModule; | |
| use strict; | |
| use warnings FATAL => qw(all); | |
| use Apache2::ServerRec; | |
| use Apache2::ServerUtil; | |
| use Apache2::Log; | |
| use Apache2::Const -compile => qw(OK); | |
| sub exit_handler { | |
| my ($p, $s) = @_; | |
| $s->log->info("Child process pid=$$ is exiting - server push"); | |
| Apache2::Const::OK; | |
| } | |
| Apache2::ServerUtil->server->push_handlers(PerlChildExitHandler => \&exit_handler); | |
| 1; |