package Catalyst::Script::Server;
use Moose;
-use MooseX::Types::Common::Numeric qw/PositiveInt/;
-use MooseX::Types::Moose qw/ArrayRef Str Bool Int RegexpRef/;
use Catalyst::Utils;
use Try::Tiny;
use namespace::autoclean;
has debug => (
traits => [qw(Getopt)],
cmd_aliases => 'd',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
documentation => q{Force debug mode},
);
has host => (
traits => [qw(Getopt)],
cmd_aliases => 'h',
- isa => Str,
+ isa => 'Str',
is => 'ro',
# N.B. undef (the default) means we bind on all interfaces on the host.
documentation => 'Specify a hostname or IP on this host for the server to bind to',
has fork => (
traits => [qw(Getopt)],
cmd_aliases => 'f',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
default => 0,
documentation => 'Fork the server to be able to serve multiple requests at once',
has port => (
traits => [qw(Getopt)],
cmd_aliases => 'p',
- isa => PositiveInt,
+ isa => 'Int',
is => 'ro',
default => sub {
Catalyst::Utils::env_value(shift->application_name, 'port') || 3000
subtype 'Catalyst::Script::Server::Types::Pidfile',
as 'MooseX::Daemonize::Pid::File';
-coerce 'Catalyst::Script::Server::Types::Pidfile', from Str, via {
+coerce 'Catalyst::Script::Server::Types::Pidfile', from 'Str', via {
try { Class::MOP::load_class("MooseX::Daemonize::Pid::File") }
catch {
warn("Could not load MooseX::Daemonize::Pid::File, needed for --pid option\n");
predicate => '_has_pidfile',
);
+# Override MooseX::Daemonize
+sub dont_close_all_files { 1 }
sub BUILD {
my $self = shift;
if ($self->background) {
# FIXME - This is evil. Should we just add MX::Daemonize to the deps?
- try { Class::MOP::load_class('MooseX::Daemonize::Core') }
+ try { Class::MOP::load_class('MooseX::Daemonize::Core'); Class::MOP::load_class('POSIX') }
catch {
warn("MooseX::Daemonize is needed for the --background option\n");
exit 1;
};
MooseX::Daemonize::Core->meta->apply($self);
+ POSIX::close($_) foreach (0..2);
}
}
has keepalive => (
traits => [qw(Getopt)],
cmd_aliases => 'k',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
default => 0,
documentation => 'Support keepalive',
has background => (
traits => [qw(Getopt)],
cmd_aliases => 'bg',
- isa => Bool,
+ 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',
default => sub {
Catalyst::Utils::env_value(shift->application_name, 'reload') || 0;
has restart_directory => (
traits => [qw(Getopt)],
cmd_aliases => [ 'rdir', 'restartdirectory' ],
- isa => ArrayRef[Str],
+ isa => 'ArrayRef[Str]',
is => 'ro',
documentation => 'Restarter directory to watch',
predicate => '_has_restart_directory',
has restart_delay => (
traits => [qw(Getopt)],
cmd_aliases => 'rd',
- isa => Int,
+ isa => 'Int',
is => 'ro',
documentation => 'Set a restart delay',
predicate => '_has_restart_delay',
{
use Moose::Util::TypeConstraints;
- my $tc = subtype 'Catalyst::Script::Server::Types::RegexpRef', as RegexpRef;
- coerce $tc, from Str, via { qr/$_/ };
+ my $tc = subtype 'Catalyst::Script::Server::Types::RegexpRef', as 'RegexpRef';
+ coerce $tc, from 'Str', via { qr/$_/ };
MooseX::Getopt::OptionTypeMap->add_option_type_to_map($tc => '=s');
has follow_symlinks => (
traits => [qw(Getopt)],
cmd_aliases => 'sym',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
default => 0,
documentation => 'Follow symbolic links',
has restarter_class => (
is => 'ro',
- isa => Str,
+ isa => 'Str',
lazy => 1,
default => sub {
my $self = shift;