documentation => 'Fork the server',
);
-has listen => (
+has port => (
traits => [qw(Getopt)],
- cmd_aliases => 'l',
+ cmd_aliases => 'p',
isa => Int,
is => 'ro',
default => 3000,
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;
sub _application_args {
my ($self) = shift;
return (
- $self->listen,
+ $self->port,
$self->host,
{
map { $_ => $self->$_ } qw/