#
# Set flags and add plugins for the application
#
-# -Debug : activates the debug mode for very useful log messages
+# -Debug: activates the debug mode for very useful log messages
# Static::Simple: will serve static files from the applications root directory
#
use Catalyst qw/-Debug Static::Simple/;
use Catalyst::Build;
my $build = Catalyst::Build->new(
- create_makefile_pl => 'passthrough',
license => 'perl',
module_name => '[% name %]',
requires => { Catalyst => '5.49' },
use [% name %];
my $help = 0;
-my ( $listen, $nproc );
+my ( $listen, $nproc, $pidfile );
GetOptions(
- 'help|?' => \$help,
- 'listen|l=s' => \$listen,
- 'nproc|n=i' => \$nproc,
+ 'help|?' => \$help,
+ 'listen|l=s' => \$listen,
+ 'nproc|n=i' => \$nproc,
+ 'pidfile|p=s' => \$pidfile,
);
pod2usage(1) if $help;
-[% name %]->run( $listen, { nproc => $nproc } );
+[% name %]->run(
+ $listen,
+ { nproc => $nproc,
+ pidfile => $pidfile,
+ }
+);
1;
can be HOST:PORT, :PORT or a
filesystem path
-n -nproc specify number of processes to keep
- to serve requests (defaults to 1)
+ to serve requests (defaults to 1,
+ requires -listen)
+ -p -pidfile specify filename for pid file
+ (requires -listen)
=head1 DESCRIPTION
use FindBin;
use lib "$FindBin::Bin/../lib";
+my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my @argv = @ARGV;
GetOptions(
+ 'debug|d' => \$debug,
'fork' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
if ( $restart ) {
$ENV{CATALYST_ENGINE} = 'HTTP::Restarter';
}
+if ( $debug ) {
+ $ENV{CATALYST_DEBUG} = 1;
+}
require [% name %];
[% appprefix %]_server.pl [options]
Options:
+ -d -debug force debug mode
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
__test__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'Test' }
-
use strict;
use Getopt::Long;
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
-use [% name %];
+use Catalyst::Test '[% name %]';
my $help = 0;
pod2usage(1) if ( $help || !$ARGV[0] );
-print [% name %]->run($ARGV[0])->content . "\n";
+print request($ARGV[0])->content . "\n";
1;
=over 4
-# Uncomment, modify and add new actions to fit your needs
+#
+# Uncomment and modify this or add new actions to fit your needs
+#
#=item default
#
#=cut