app_manager.yml

- name: "MyApp"
  server_class: "FCGI::Engine::Manager::Server::HTTP::Prefork"
  scriptname: "script/myapp_prefork.pl"
  nproc: 3
  pidfile: "run/myapp.pid"
  socket: ""

gistfile4.txt

myapp_admin.pl

#!/usr/bin/env perl
 
use strict;
use warnings;

use local::lib;
use FindBin;
use FCGI::Engine::Manager;
use lib "$FindBin::Bin/../lib";

my $cmd = shift @ARGV;
die 'Must supply command!' unless $cmd;
 
my $conf = "$FindBin::Bin/../conf/app_manager.yml";
print FCGI::Engine::Manager->new( conf => $conf )->$cmd;

Prefork.pm

package FCGI::Engine::Manager::Server::HTTP::Prefork;
use Moose;

our $VERSION   = '0.01';
our $AUTHORITY = 'cpan:JSHIRLEY';

extends 'FCGI::Engine::Manager::Server';

# We don't actually hav ea socket
has 'socket' => (
    is       => 'rw',
    isa      => 'Str',
    required => 0
);

sub construct_command_line {
    my $self = shift;

    return (
        "perl",
         ($self->has_additional_args
             ? $self->additional_args
             : ()),
         $self->scriptname, 
         "--pidfile",
         $self->pidfile, 
         "--background"
    );
}

sub remove_pid_object { }

1;

__END__