X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FServer.pm;h=ef1f818e93d92abd9e39a0c0e3bf7cad48513108;hb=0e4038c63189b155c40e50c9d8c26f618e1f9814;hp=1fcedad710caa8b3c45dd995424a3a6c3d66e997;hpb=70dc1717c4f61c6ddac1f2524d81e1812b94d810;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Script/Server.pm b/lib/Catalyst/Script/Server.pm index 1fcedad..ef1f818 100644 --- a/lib/Catalyst/Script/Server.pm +++ b/lib/Catalyst/Script/Server.pm @@ -2,175 +2,146 @@ package Catalyst::Script::Server; BEGIN { $ENV{CATALYST_ENGINE} ||= 'HTTP'; - $ENV{CATALYST_SCRIPT_GEN} = 31; require Catalyst::Engine::HTTP; } -use FindBin qw/$Bin/; -use lib "$Bin/../lib"; -use Pod::Usage; use Moose; -use Catalyst::Restarter; +use MooseX::Types::Moose qw/ArrayRef Str Bool Int/; use namespace::autoclean; -with 'MooseX::Getopt'; +with 'Catalyst::ScriptRole'; has debug => ( traits => [qw(Getopt)], cmd_aliases => 'd', - isa => 'Bool', + isa => Bool, is => 'ro', - documentation => qq{ force debug mode } - + documentation => q{Force debug mode}, ); -has help => ( +has host => ( traits => [qw(Getopt)], cmd_aliases => 'h', - isa => 'Bool', + isa => Str, 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 } + default => 'localhost', + documentation => 'Specify an IP on this host for the server to bind to', ); has fork => ( traits => [qw(Getopt)], cmd_aliases => 'f', - isa => 'Bool', + isa => Bool, is => 'ro', - documentation => qq{ fork the server } + default => 0, + documentation => 'Fork the server to be able to serve multiple requests at once', ); -has listen => ( +has port => ( traits => [qw(Getopt)], - cmd_aliases => 'l', - isa => 'Int', + cmd_aliases => 'p', + isa => Int, is => 'ro', - default => "3000", - documentation => qq{ specify a different listening port } + default => 3000, + documentation => 'Specify a different listening port (to the default port 3000)', ); has pidfile => ( traits => [qw(Getopt)], cmd_aliases => 'pid', - isa => 'Str', + isa => Str, is => 'ro', - documentation => qq{ specify a pidfile } + documentation => 'Specify a pidfile', ); has keepalive => ( traits => [qw(Getopt)], cmd_aliases => 'k', - isa => 'Bool', + isa => Bool, is => 'ro', - documentation => qq{ server keepalive }, - + default => 0, + documentation => 'Support 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', + isa => Bool, is => 'ro', + default => 0, + documentation => 'Run in the background', ); has restart => ( traits => [qw(Getopt)], cmd_aliases => 'r', - isa => 'Bool', + isa => Bool, is => 'ro', - documentation => qq{ use Catalyst::Restarter to detect code changes } + default => 0, + documentation => 'use Catalyst::Restarter to detect code changes and restart the application', ); has restart_directory => ( traits => [qw(Getopt)], cmd_aliases => 'rdir', - isa => 'ArrayRef[Str]', + isa => ArrayRef[Str], is => 'ro', + documentation => 'Restarter directory to watch', predicate => '_has_restart_directory', - documentation => qq{ restarter directory to watch } ); has restart_delay => ( traits => [qw(Getopt)], - cmd_aliases => 'rdel', - isa => 'Int', + cmd_aliases => 'rd', + isa => Int, is => 'ro', + documentation => 'Set a restart delay', predicate => '_has_restart_delay', - documentation => qq{ set a restart delay } ); has restart_regex => ( traits => [qw(Getopt)], - cmd_aliases => 'rxp', - isa => 'Str', + cmd_aliases => 'rr', + isa => Str, is => 'ro', + documentation => 'Restart regex', predicate => '_has_restart_regex', - documentation => qq{ restart regex } ); has follow_symlinks => ( traits => [qw(Getopt)], cmd_aliases => 'sym', - isa => 'Bool', + isa => Bool, is => 'ro', - predicate => '_has_follow_symlinks', - documentation => qq{ follow symbolic links } - + default => 0, + documentation => 'Follow symbolic links', ); -sub usage { - my ($self) = shift; - - return pod2usage(); - -} - - sub run { 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}; + local $ENV{CATALYST_DEBUG} = 1 + if $self->debug; if ( $self->restart ) { die "Cannot run in the background and also watch for changed files.\n" if $self->background; + # 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}; + require Catalyst::Restarter; my $subclass = Catalyst::Restarter->pick_subclass; my %args; $args{follow_symlinks} = $self->follow_symlinks - if $self->_has_follow_symlinks; + if $self->follow_symlinks; $args{directories} = $self->restart_directory if $self->_has_restart_directory; $args{sleep_interval} = $self->restart_delay @@ -180,51 +151,48 @@ sub run { my $restarter = $subclass->new( %args, - start_sub => sub { $self->_run }, - argv => \$self->ARGV, + start_sub => sub { $self->_run_application }, + argv => $self->ARGV, ); $restarter->run_and_watch; } else { - $self->_run; + $self->_run_application; } } -sub _run { +sub _application_args { my ($self) = shift; - - my $app = $self->app; - Class::MOP::load_class($app); - - $app->run( - $self->listen, $self->host, + return ( + $self->port, + $self->host, { - 'fork' => $self->fork, - keepalive => $self->keepalive, - background => $self->background, - pidfile => $self->pidfile, - keepalive => $self->keepalive, - follow_symlinks => $self->follow_symlinks, - } + map { $_ => $self->$_ } qw/ + fork + keepalive + background + pidfile + keepalive + follow_symlinks + /, + }, ); } - -no Moose; __PACKAGE__->meta->make_immutable; 1; =head1 NAME -[% appprefix %]_server.pl - Catalyst Testserver +Catalyst::Script::Server - Catalyst test server =head1 SYNOPSIS -[% appprefix %]_server.pl [options] + myapp_server.pl [options] Options: -d --debug force debug mode @@ -255,7 +223,7 @@ __PACKAGE__->meta->make_immutable; =head1 DESCRIPTION -Run a Catalyst Testserver for this application. +Run a Catalyst test server for this application. =head1 AUTHORS