all_pod_coverage_ok();
__cgi__
-[% startperl %] -w
+[% startperl %]
BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
=cut
__fastcgi__
-[% startperl %] -w
+[% startperl %]
BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
=cut
__server__
-[% startperl %] -w
+[% startperl %]
BEGIN {
$ENV{CATALYST_ENGINE} ||= 'HTTP';
my $help = 0;
my $host = undef;
my $port = 3000;
+my $keepalive = 0;
my $restart = 0;
my $restart_delay = 1;
my $restart_regex = '\.yml$|\.yaml$|\.pm$';
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
+ 'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex
require [% name %];
[% name %]->run( $port, $host, {
- argv => \@argv,
- 'fork' => $fork,
- restart => $restart,
+ argv => \@argv,
+ 'fork' => $fork,
+ keepalive => $keepalive,
+ restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/
} );
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
+ -k -keepalive enable keep-alive connections
-r -restart restart when files got modified
(defaults to false)
-rd -restartdelay delay between file checks
=cut
__test__
-[% startperl %] -w
+[% startperl %]
use strict;
use Getopt::Long;
=cut
__create__
-[% startperl %] -w
+[% startperl %]
use strict;
use Getopt::Long;
=cut
__package__
-[% startperl %] -w
+[% startperl %]
use strict;
use Getopt::Long;