requires 'MRO::Compat';
requires 'MooseX::Getopt' => '0.25';
requires 'MooseX::Types';
+requires 'MooseX::Types::Common::Numeric';
requires 'String::RewritePrefix' => '0.004'; # Catalyst::Utils::resolve_namespace
test_requires 'Class::Data::Inheritable';
}
use Moose;
+use MooseX::Types::Common::Numeric qw/PositiveInt/;
use MooseX::Types::Moose qw/ArrayRef Str Bool Int RegexpRef/;
use namespace::autoclean;
has port => (
traits => [qw(Getopt)],
cmd_aliases => 'p',
- isa => Int,
+ isa => PositiveInt,
is => 'ro',
default => 3000,
documentation => 'Specify a different listening port (to the default port 3000)',