if ($listen) {
$options->{manager} ||= "FCGI::ProcManager";
$options->{nproc} ||= 1;
- $options->{title} ||= "perl-fcgi-pm [$class]";
+ $options->{proc_title} ||= "perl-fcgi-pm [$class]";
$self->daemon_fork() if $options->{detach};
{
n_processes => $options->{nproc},
pid_fname => $options->{pidfile},
- pm_title => $options->{title},
+ pm_title => $options->{proc_title},
}
);
documentation => 'Specify a number of child processes',
);
-has title => (
+has proc_title => (
traits => [qw(Getopt)],
- cmd_aliases => 't',
isa => Str,
is => 'ro',
documentation => 'Set the process title',
manager => $self->manager,
detach => $self->daemon,
keep_stderr => $self->keeperr,
- title => $self->title,
+ proc_title => $self->proc_title,
}
);
}
myapp_fastcgi.pl [options]
Options:
- -? --help display this help and exits
- -l --listen Socket path to listen on
- (defaults to standard input)
- can be HOST:PORT, :PORT or a
- filesystem path
- -n --nproc specify number of processes to keep
- to serve requests (defaults to 1,
- requires -listen)
- -p --pidfile specify filename for pid file
- (requires -listen)
- -d --daemon daemonize (requires -listen)
- -M --manager specify alternate process manager
- (FCGI::ProcManager sub-class)
- or empty string to disable
- -e --keeperr send error messages to STDOUT, not
- to the webserver
- -t --title set the process title
+ -? --help display this help and exits
+ -l --listen Socket path to listen on
+ (defaults to standard input)
+ can be HOST:PORT, :PORT or a
+ filesystem path
+ -n --nproc specify number of processes to keep
+ to serve requests (defaults to 1,
+ requires -listen)
+ -p --pidfile specify filename for pid file
+ (requires -listen)
+ -d --daemon daemonize (requires -listen)
+ -M --manager specify alternate process manager
+ (FCGI::ProcManager sub-class)
+ or empty string to disable
+ -e --keeperr send error messages to STDOUT, not
+ to the webserver
+ --proc_title set the process title
=head1 DESCRIPTION
testOption( [ qw/--nproc 6/ ], [undef, opthash(nproc => 6)] );
testOption( [ qw/--n 6/ ], [undef, opthash(nproc => 6)] );
-# title
-testOption( [ qw/--title foo/ ], [undef, opthash(title => 'foo')] );
-testOption( [ qw/-t foo/ ], [undef, opthash(title => 'foo')] );
+# proc_title
+testOption( [ qw/--proc_title foo/ ], [undef, opthash(proc_title => 'foo')] );
done_testing;
detach => undef,
nproc => undef,
manager => undef,
- title => undef,
+ proc_title => undef,
@_,
};
}