if ($listen) {
$options->{manager} ||= "FCGI::ProcManager";
$options->{nproc} ||= 1;
+ $options->{title} ||= "perl-fcgi-pm [$class]";
$self->daemon_fork() if $options->{detach};
{
n_processes => $options->{nproc},
pid_fname => $options->{pidfile},
+ pm_title => $options->{title},
}
);
documentation => 'Specify a number of child processes',
);
+has title => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 't',
+ isa => Str,
+ is => 'ro',
+ documentation => 'Set the process title',
+);
+
sub _application_args {
my ($self) = shift;
return (
manager => $self->manager,
detach => $self->daemon,
keep_stderr => $self->keeperr,
+ title => $self->title,
}
);
}
or empty string to disable
-e --keeperr send error messages to STDOUT, not
to the webserver
+ -t --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')] );
+
done_testing;
sub testOption {
detach => undef,
nproc => undef,
manager => undef,
+ title => undef,
@_,
};
}