[% startperl %]
use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('Catalyst','CGI');
+Catalyst::ScriptRunner->run('[% name %]', 'CGI');
1;
[% startperl %]
use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('Catalyst','FastCGI');
+Catalyst::ScriptRunner->run('[% name %]','FastCGI');
1;
-package [% appprefix %]::Script::Server;
-
-use Catalyst::Engine::HTTP;
-use [% appprefix %];
-use Moose;
-
-with 'MooseX::GetOpt';
-
-has argv => ( isa => 'ArrayRef', is => 'ro', required => 1 );
-has [qw/ fork background keepalive /] => ( isa => 'Bool', is => 'ro', required => 1, default => 0 );
-has pidfile => ( isa => 'Str', required => 0, is => 'ro' );
-
-sub run {
- my $self = shift;
- [% appprefix %]->run(
- $port, $host,
- {
- argv => $self->argv,
- 'fork' => $self->fork,
- keepalive => $self->keepalive,
- background => $self->background,
- pidfile => $self->pidfile,
- }
- );
-}
-
-
-
-__PACKAGE__->new_with_options->run;
-
+[% startperl %]
+use Catalyst::ScriptRunner;
+Catalyst::ScriptRunner->run('[% name %]', 'Server');
1;
[% startperl %]
use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('Catalyst','Test');
+Catalyst::ScriptRunner->run('[% name %]','Test');
1;
use warnings;
use Test::More tests => 2;
-BEGIN { use_ok 'Catalyst::Test', '[% app %]' }
+BEGIN { use_ok 'Catalyst::Test', '[% name %]' }
ok( request('/')->is_success, 'Request should succeed' );
use warnings;
[% IF long_type == 'Controller' %][% IF mech %]use Test::More;
-eval "use Test::WWW::Mechanize::Catalyst '[% app %]'";
+eval "use Test::WWW::Mechanize::Catalyst '[% name %]'";
plan $@
? ( skip_all => 'Test::WWW::Mechanize::Catalyst required' )
: ( tests => 2 );
$mech->get_ok( 'http://localhost[% uri %]' );
[% ELSE %]use Test::More tests => 3;
-BEGIN { use_ok 'Catalyst::Test', '[% app %]' }
+BEGIN { use_ok 'Catalyst::Test', '[% name %]' }
BEGIN { use_ok '[% class %]' }
ok( request('[% uri %]')->is_success, 'Request should succeed' );