use lib "$Bin/../lib";
use Pod::Usage;
use Moose;
-use Catalyst::Engine::HTTP;
-use namespace::clean -except => [ qw(meta) ];
+use Catalyst::Restarter;
+use namespace::autoclean;
with 'MooseX::Getopt';
-has help => ( isa => 'Bool', is => 'ro', required => 0, default => sub { 0 } );
-has host => ( isa => 'Str', is => 'ro', required => 0, default => sub { "localhost" } );
-has fork => ( isa => 'Bool', is => 'ro', required => 0 );
-has listen => ( isa => 'Int', is => 'ro', required => 0, default => sub{ 3000 } );
-has pidfile => ( isa => 'Str', is => 'ro', required => 0 );
-has keepalive => ( isa => 'Bool', is => 'ro', required => 0, default => sub { 0 } );
-has background => ( isa => 'Bool', is => 'ro', required => 0 );
-has app => ( isa => 'Str', is => 'ro', required => 1 );
-has restart => ( isa => 'Bool', is => 'ro', required => 0 );
-has restart_delay => ( isa => 'Int', is => 'ro', required => 0 );
-has restart_regex => ( isa => 'Str', is => 'ro', required => 0 );
-has follow_symlinks => ( isa => 'Bool', is => 'ro', required => 0 );
-
-my @argv = @ARGV;
+has debug => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'd',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ force debug mode }
+
+);
+
+has help => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'h',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ display this help and exits },
+);
+
+has host => (
+ isa => 'Str',
+ is => 'ro',
+ default => "localhost",
+ documentation => qq{ specify a host for the server to run on }
+);
+
+has fork => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'f',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ fork the server }
+);
+
+has listen => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'l',
+ isa => 'Int',
+ is => 'ro',
+ default => "3000",
+ documentation => qq{ specify a different listening port }
+);
+
+has pidfile => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'pid',
+ isa => 'Str',
+ is => 'ro',
+ documentation => qq{ specify a pidfile }
+);
+
+has keepalive => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'k',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ server keepalive },
+
+);
+
+has background => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'bg',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ run in the background }
+);
+
+
+has _app => (
+ reader => 'app',
+ init_arg => 'app',
+ traits => [qw(NoGetopt)],
+ isa => 'Str',
+ is => 'ro',
+);
+
+has restart => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'r',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{ use Catalyst::Restarter to detect code changes }
+);
+
+has restart_directory => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'rdir',
+ isa => 'ArrayRef[Str]',
+ is => 'ro',
+ predicate => '_has_restart_directory',
+ documentation => qq{ restarter directory to watch }
+);
+
+has restart_delay => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'rdel',
+ isa => 'Int',
+ is => 'ro',
+ predicate => '_has_restart_delay',
+ documentation => qq{ set a restart delay }
+);
+
+has restart_regex => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'rxp',
+ isa => 'Str',
+ is => 'ro',
+ predicate => '_has_restart_regex',
+ documentation => qq{ restart regex }
+);
+
+has follow_symlinks => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'sym',
+ isa => 'Bool',
+ is => 'ro',
+ predicate => '_has_follow_symlinks',
+ documentation => qq{ follow symbolic links }
+
+);
+
+sub usage {
+ my ($self) = shift;
+
+ return pod2usage();
+
+}
+
sub run {
- my $self = shift;
-
- pod2usage() if $self->help;
+ my ($self) = shift;
+
+ $self->usage if $self->help;
+
+ if ( $self->debug ) {
+ $ENV{CATALYST_DEBUG} = 1;
+ }
+
+ # If we load this here, then in the case of a restarter, it does not
+ # need to be reloaded for each restart.
+ require Catalyst;
+
+ # If this isn't done, then the Catalyst::Devel tests for the restarter
+ # fail.
+ $| = 1 if $ENV{HARNESS_ACTIVE};
+
+ if ( $self->restart ) {
+ die "Cannot run in the background and also watch for changed files.\n"
+ if $self->background;
+
+ require Catalyst::Restarter;
+
+ my $subclass = Catalyst::Restarter->pick_subclass;
+
+ my %args;
+ $args{follow_symlinks} = $self->follow_symlinks
+ if $self->_has_follow_symlinks;
+ $args{directories} = $self->restart_directory
+ if $self->_has_restart_directory;
+ $args{sleep_interval} = $self->restart_delay
+ if $self->_has_restart_delay;
+ $args{filter} = qr/$self->restart_regex/
+ if $self->_has_restart_regex;
+
+ my $restarter = $subclass->new(
+ %args,
+ start_sub => sub { $self->_run },
+ argv => \$self->ARGV,
+ );
+
+ $restarter->run_and_watch;
+ }
+ else {
+ $self->_run;
+ }
+
+
+}
+
+sub _run {
+ my ($self) = shift;
+
my $app = $self->app;
Class::MOP::load_class($app);
+
$app->run(
$self->listen, $self->host,
- {
- 'fork' => $self->fork,
- keepalive => $self->keepalive,
- background => $self->background,
- pidfile => $self->pidfile,
+ {
+ 'fork' => $self->fork,
+ keepalive => $self->keepalive,
+ background => $self->background,
+ pidfile => $self->pidfile,
keepalive => $self->keepalive,
- restart => $self->restart,
- restart_delay => $self->restart_delay,
- restart_regex => qr/$self->restart_regex/,
-# FIXME restart_directory => $self->restart_directory,
follow_symlinks => $self->follow_symlinks,
- }
+ }
);
-
}
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
1;
+
+=head1 NAME
+
+[% appprefix %]_server.pl - Catalyst Testserver
+
+=head1 SYNOPSIS
+
+[% appprefix %]_server.pl [options]
+
+ Options:
+ -d --debug force debug mode
+ -f --fork handle each request in a new process
+ (defaults to false)
+ -h --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 get modified
+ (defaults to false)
+ --rd --restartdelay delay between file checks
+ (ignored if you have Linux::Inotify2 installed)
+ --rr --restartregex regex match files that trigger
+ a restart when modified
+ (defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
+ --rdir --restartdirectory the directory to search for
+ modified files, can be set mulitple times
+ (defaults to '[SCRIPT_DIR]/..')
+ --sym --follow_symlinks follow symlinks in search directories
+ (defaults to false. this is a no-op on Win32)
+ --bg --background run the process in the background
+ --pid --pidfile specify filename for pid file
+
+ See also:
+ perldoc Catalyst::Manual
+ perldoc Catalyst::Manual::Intro
+
+=head1 DESCRIPTION
+
+Run a Catalyst Testserver for this application.
+
+=head1 AUTHORS
+
+Catalyst Contributors, see Catalyst.pm
+
+=head1 COPYRIGHT
+
+This library is free software. You can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut