view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/Minion/Starter.pm  view on Meta::CPAN

    $spawn //= 1; $spawn = $spawn <= 0 ? 1 : $spawn;

    sub {
	my ($server, $app) = @_;

	if ($self->config->{debug}) {
	    $self->app->log->info(sprintf "Server type is %s, process %d", ref $server, $$);
	    $self->app->log->info(sprintf "Pid of parent of server process is %d", getppid());
	}
	# Mojo::Server::PSGI + plackup: parent is shell, server is plackup
	# Mojo::Server::PSGI + starman: parent is starman
	# Mojo::Server::Daemon morbo: parent is not shell

	if (ref $server eq 'Mojo::Server::Prefork') {
	    $server->on(spawn => sub  {
			    my ($server, $pid) = @_;
			    $self->spawn_worker if (scalar @{$self->workers} < $spawn);
			});
	    return;
	}
	if (ref $server eq 'Mojo::Server::Daemon') {