Debug.pm

package FCGI::ProcManager::Debug;
use strict;
use warnings;
use base qw/FCGI::ProcManager/;

sub pm_manage {
    my $res = shift->SUPER::pm_manage(@_);

    # manager does not return pm_manage, so below code should run in server only
    $0 = 'perl-fcgi (waiting)';
    $res;
}

sub pm_pre_dispatch {
    $0 = sprintf('perl-fcgi (started %s)', scalar localtime);
    shift->SUPER::pm_pre_dispatch(@_);
}

sub pm_post_dispatch {
    $0 = 'perl-fcgi (waiting)';
    shift->SUPER::pm_pre_dispatch(@_);
}

1;