• 注１：まだ本番にはデプロイしてませんが、確認テストでは使いました（単位テストでは使わない。あくまで本番さながらの形で動いているのを確認したい時だけ）。
• 注２：以下スクリプトは開発者の労力を減らすためのスクリプトで、万全なデプロイ方法だとか言うわけではありません。
• 注３：正直シェルスクリプトは素人です。

use inc::Module::Install;

name 'MyApp';

..... # �~E�~A�~A��~K�~I��~@~E ....

# Plack stuff
requires 'Plack' => '0.9910'; # or 1.00 when the time comes
requires 'Starman';
requires 'Server::Starter';
requires 'Net::Server::SS::PreFork';

bundle_local_lib;

WriteAll;

make bundle_local_lib

#!/bin/sh

# ENV�~A��~A~D�~A~F�~C~U�~B��~B��~C��~A~L �~A~S�~A��~C~U�~B��~B��~C��~A��~P~L�~A~X�~C~G�~B��~C��~B��~C~H�~C��~A~K
# pwd�~A��~A~B�~B~L�~A��~@~A�~A~]�~B~L�~B~R読�~A�込�~B~S�~A��~@~A�~A~]�~A~S�~A~K�~B~I�~R��~C�~I�~U��~B~R�~C�~A~F�~@~B
# �~K�~A~H�~A��~L�~A��~G��~A��~A~O�~B~K PSGI_FILE�~A��| ��~I~@�~B~R�~X~N示�~Z~D�~A��~L~G�~Z�~A~W�~A~_�~A~Q�~B~L�~A�
# PSGI_FILE=/path/to/app.psgi �~A��~A~KENV�~C~U�~B��~B��~C��~A��~[��~A~D�~A��~A~J�~A~O�~@~B
if [ -f `dirname $0`/ENV ]; then
    ENV_FILE=`dirname $0`/ENV
    export `cat $ENV_FILE`
elif [ -f ENV ]; then
    export `cat ENV`
fi

if [ -z $APP_HOME ]; then
    APP_HOME=`pwd`;
fi
export APP_HOME
if [ -z $CATALYST_HOME ]; then
    CATALYST_HOME=$APP_HOME
    export CATALYST_HOME
fi

if [ -z $CATALYST_CONFIG ]; then
    if [ -f "catalyst.yaml" ]; then
        CATALYST_CONFIG=catalyst.yaml
        export CATALYST_CONFIG
    fi
fi

if [ ! -z $DEBUG ]; then
    DBIC_TRACE=2
    export DBIC_TRACE
fi

if [ -z $PLACK_SERVER ]; then
    PLACK_SERVER=Starman
fi

if [ -z $PSGI_FILE ]; then
    PSGI_FILE=app.psgi
fi

if [ -z $PORT ]; then
    PORT=5000
fi

if [ -z $USER ]; then
    USER=www
fi

if [ -z $PERL ]; then
    PERL=`which perl`
fi

EXTLIB=$APP_HOME/extlib

# start_server�~B~R�~@~Z�~A~W�~A� plackup�~B~R�~_�~L�~A~Y�~B~K�~A��~A| �~A~L�~@~A�~A~S�~A~D�~A��~B~I�~A�extlib�~A�中�~A�
# �~A~B�~B~K�~A��~A��~@~A�~A~]�~B~L�~B~R�~L~G�~Z�~A~W�~A��~_�~L�~A~Y�~B~K�~Hlocal::lib設�~Z�~B~B�~A��~A~Q�~A��~A~D�~A��~]�~X�~V��~B�~A~L
# �~A��~A��~A~K�~B~I�~A��~A~D�~J��~E~K�~A��~A��~A��~A��~A~W�~A��~A~F)
exec setuidgid $USER \
    $PERL -Mlocal::lib=$EXTLIB \
    $EXTLIB/bin/start_server --port $PORT -- \
    $PERL -Mlocal::lib=$EXTLIB \
    $EXTLIB/bin/plackup -s $PLACK_SERVER -a $PSGI_FILE -p $PORT 2>&1

use strict;
use lib "$ENV{CATALYST_HOME}/lib"; # �~C~Q�~B��~B~R�~@~Z�~A~Y
use local::lib "$ENV{CATALYST_HOME}/extlib"; # �~A��~A~D�~A��~A�local::lib�~A��~C~Q�~B��~B~B�~@~Z�~A~Y

use MyApp;
use Plack::Builder;

MyApp->setup_engine('PSGI');

builder {
    # �~C��~C~P�~C��~B��~C~W�~C��~B��~B�使�~A~F�| ��~P~H�~A�enable�~A~W�~A��~B~C�~A~F
    if ($ENV{USE_PROXY}) {
        enable "Plack::Middleware::ReverseProxy";
    }
    return sub { MyApp->run(@_) };
};