"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/t/lib/TestExit/FromPerlModule.pm" (5 Oct 2019, 557 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "FromPerlModule.pm": 2.0.8_vs_2.0.9.

    1 # please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
    2 package TestExit::FromPerlModule;
    3 
    4 use strict;
    5 use warnings FATAL => qw(all);
    6 
    7 use Apache2::ServerRec;
    8 use Apache2::ServerUtil;
    9 use Apache2::Log;
   10 use Apache2::Const -compile => qw(OK);
   11 
   12 sub exit_handler {
   13     my ($p, $s) = @_;
   14 
   15     $s->log->info("Child process pid=$$ is exiting - server push");
   16 
   17     Apache2::Const::OK;
   18 }
   19 
   20 Apache2::ServerUtil->server->push_handlers(PerlChildExitHandler => \&exit_handler);
   21 
   22 1;