help option now has a short option

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Script / Server.pm

diff --git a/lib/Catalyst/Script/Server.pm b/lib/Catalyst/Script/Server.pm
index 888119a..f0f2894 100644 (file)
--- a/lib/Catalyst/Script/Server.pm
+++ b/lib/Catalyst/Script/Server.pm
@@ -1,12 +1,77 @@
 package Catalyst::Script::Server;
 
+BEGIN {
+    $ENV{CATALYST_ENGINE} ||= 'HTTP';
+    $ENV{CATALYST_SCRIPT_GEN} = 31;
+    require Catalyst::Engine::HTTP;
+}
+
+use FindBin qw/$Bin/;
+use lib "$Bin/../lib";
+use Pod::Usage;
+use Moose;
+use Catalyst::Engine::HTTP;
+use namespace::clean -except => [ qw(meta) ];
+
+with 'MooseX::Getopt';
+
+has help => ( 
+    traits => [qw(Getopt)],
+    isa => 'Bool',   
+    is => 'ro', 
+    required => 0, 
+    default => 0,
+    cmd_aliases => 'h',  
+);
+
+has host            => ( isa => 'Str',    is => 'ro', required => 0, default =>  "localhost" );
+has fork            => ( isa => 'Bool',   is => 'ro', required => 0 );
+has listen          => ( isa => 'Int',    is => 'ro', required => 0, default => "3000" );
+has pidfile         => ( isa => 'Str',    is => 'ro', required => 0 );
+has keepalive       => ( isa => 'Bool',   is => 'ro', required => 0, default => 0 );
+has background      => ( isa => 'Bool',   is => 'ro', required => 0 );
+has app             => ( isa => 'Str',    is => 'ro', required => 1 );
+has restart         => ( isa => 'Bool',   is => 'ro', required => 0 );
+has restart_delay   => ( isa => 'Int',    is => 'ro', required => 0 );
+has restart_regex   => ( isa => 'Str',    is => 'ro', required => 0 );
+has follow_symlinks => ( isa => 'Bool',   is => 'ro', required => 0 );
+
+my @argv = @ARGV;
+
+sub run {
+    my $self = shift;
+    
+    pod2usage() if $self->help;
+    my $app = $self->app;
+    Class::MOP::load_class($app);
+    $app->run(
+        $self->listen, $self->host,
+        {  
+           'fork'     => $self->fork,
+           keepalive  => $self->keepalive,
+           background => $self->background,
+           pidfile    => $self->pidfile,
+           keepalive         => $self->keepalive,
+           restart           => $self->restart,
+           restart_delay     => $self->restart_delay,
+           restart_regex     => qr/$self->restart_regex/,
+# FIXME    restart_directory => $self->restart_directory,
+           follow_symlinks   => $self->follow_symlinks,
+        }  
+    );
+
+}
+
+
+1;
+
 =head1 NAME
 
-testapp_server.pl - Catalyst Testserver
+[% appprefix %]_server.pl - Catalyst Testserver
 
 =head1 SYNOPSIS
 
-testapp_server.pl [options]
+[% appprefix %]_server.pl [options]
 
  Options:
    -d -debug          force debug mode
@@ -49,5 +114,3 @@ This library is free software. You can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut
-
-1;