# Helper
if ($helper) {
- my $comp = 'Model';
- $comp = 'View' if $type eq 'V';
- $comp = 'Controller' if $type eq 'C';
+ my $comp = $self->{long_type};
my $class = "Catalyst::Helper::$comp\::$helper";
eval "require $class";
# my ( $self, $c ) = @_;
#
# # Forward to View unless response body is already defined
-# $c->forward('MyApp::V::') unless $c->response->body;
+# $c->forward('View::') unless $c->response->body;
#}
=back
create_makefile_pl => 'passthrough',
license => 'perl',
module_name => '[% name %]',
- requires => { Catalyst => '5.10' },
+ requires => { Catalyst => '5.49' },
create_makefile_pl => 'passthrough',
script_files => [ glob('script/*') ],
test_files => [ glob('t/*.t'), glob('t/*/*.t') ]
use Pod::Usage;
use FindBin;
use lib "$FindBin::Bin/../lib";
-use [% name %];
my $fork = 0;
my $help = 0;
pod2usage(1) if $help;
+if ( $restart ) {
+ $ENV{CATALYST_ENGINE} = 'HTTP::Restarter';
+}
+
+require [% name %];
+
[% name %]->run( $port, $host, {
argv => \@argv,
'fork' => $fork,