use lib "$Bin/../lib";
use Pod::Usage;
use Moose;
+use Catalyst::Restarter;
#use Catalyst::Engine::HTTP;
use namespace::autoclean;
with 'MooseX::Getopt';
+has debug => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'd',
+ isa => 'Bool',
+ is => 'ro',
+ documentation => qq{
+ -d --debug force debug mode
+ }
+
+);
+
has help => (
traits => [qw(Getopt)],
cmd_aliases => 'h',
isa => 'Bool',
is => 'ro',
- required => 0,
- default => 0,
+ documentation => qq{
+ -h --help display this help and exits
+ },
);
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
+ ,
+
);
has background => (
cmd_aliases => 'bg',
isa => 'Bool',
is => 'ro',
- required => 0
);
-## broken now, WHY?!
-has app => (
- #traits => [qw(NoGetopt)],
+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_directory => (
+ traits => [qw(Getopt)],
+ cmd_aliases => 'rdir',
+ isa => 'Str',
+ is => 'ro',
);
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
+
);
+sub usage {
+ my ($self) = shift;
+
+ return pod2usage();
+
+}
+
my @argv = @ARGV;
sub run {
my $self = shift;
- pod2usage() if $self->help;
+ $self->usage if $self->help;
+
+ if ( $self->debug ) {
+ $ENV{CATALYST_DEBUG} = 1;
+ }
+
+ if ( $self->restart ) {
+ die "Cannot run in the background and also watch for changed files.\n"
+ if $self->background;
+
+ require Catalyst::Restarter;
+
+ my $subclass = Catalyst::Restarter->pick_subclass;
+
+ my %args;
+ $args{follow_symlinks} = $self->follow_symlinks;
+ $args{directories} = $self->restart_directory;
+ $args{sleep_interval} = $self->restart_delay;
+ $args{filter} = qr/$self->restart_regex/;
+
+ my $restarter = $subclass->new(
+ %args,
+ start_sub => $self->runner,
+ argv => $self->ARGV,
+ );
+
+ $restarter->run_and_watch;
+ }
+ else {
+ $self->runner;
+ }
+
+
+}
+
+sub runner {
+ my ($self) = shift;
+
+ # If we load this here, then in the case of a restarter, it does not
+ # need to be reloaded for each restart.
+ require Catalyst;
+
+ # If this isn't done, then the Catalyst::Devel tests for the restarter
+ # fail.
+ $| = 1 if $ENV{HARNESS_ACTIVE};
+
+
+ $self->usage if $self->help;
my $app = $self->app;
Class::MOP::load_class($app);
+
+ if ( $self->debug ) {
+ $ENV{CATALYST_DEBUG} = 1;
+ }
+
+
$app->run(
$self->listen, $self->host,
{
restart => $self->restart,
restart_delay => $self->restart_delay,
restart_regex => qr/$self->restart_regex/,
-# FIXME restart_directory => $self->restart_directory,
+ restart_directory => $self->restart_directory,
follow_symlinks => $self->follow_symlinks,
}
);
-
}
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
1;
=head1 NAME