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");
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;