use lib "$Bin/../lib";
use Pod::Usage;
use Moose;
-use Catalyst::Engine::HTTP;
-use namespace::clean -except => [ qw(meta) ];
+#use Catalyst::Engine::HTTP;
+use namespace::autoclean;
with 'MooseX::Getopt';
cmd_aliases => 'h',
isa => 'Bool',
is => 'ro',
- required => 0,
+ ,
default => 0,
);
has host => (
isa => 'Str',
is => 'ro',
- required => 0,
+ ,
default => "localhost"
);
cmd_aliases => 'f',
isa => 'Bool',
is => 'ro',
- required => 0
+
);
has listen => (
cmd_aliases => 'l',
isa => 'Int',
is => 'ro',
- required => 0,
+ ,
default => "3000"
);
cmd_aliases => 'pid',
isa => 'Str',
is => 'ro',
- required => 0
+
);
has keepalive => (
cmd_aliases => 'k',
isa => 'Bool',
is => 'ro',
- required => 0,
+ ,
default => 0
);
cmd_aliases => 'bg',
isa => 'Bool',
is => 'ro',
- required => 0
);
-has app => (
+
+## broken now, WHY?!
+has _app => (
+ reader => 'app',
+ init_arg => 'app',
traits => [qw(NoGetopt)],
isa => 'Str',
is => 'ro',
- required => 1,
);
has restart => (
cmd_aliases => 'r',
isa => 'Bool',
is => 'ro',
- required => 0
+
);
has restart_delay => (
cmd_aliases => 'rdel',
isa => 'Int',
is => 'ro',
- required => 0
+
);
has restart_regex => (
cmd_aliases => 'rxp',
isa => 'Str',
is => 'ro',
- required => 0
+
);
has follow_symlinks => (
cmd_aliases => 'sym',
isa => 'Bool',
is => 'ro',
- required => 0
+
);
my @argv = @ARGV;
pod2usage() if $self->help;
my $app = $self->app;
+ warn "App is $app";
Class::MOP::load_class($app);
$app->run(
$self->listen, $self->host,