use IO::File;
use FindBin;
use Template;
+our $CATALYST_SCRIPT_GEN = 2;
my %cache;
$self->{dir} = $name;
$self->{dir} =~ s/\:\:/-/g;
$self->{startperl} = $Config{startperl};
+ $self->{scriptgen}=$CATALYST_SCRIPT_GEN;
$self->_mk_dirs;
$self->_mk_appclass;
$self->_mk_makefile;
__server__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} = 'HTTP' }
+BEGIN {
+ $ENV{CATALYST_ENGINE} = 'HTTP';
+ $ENV{CATALYST_SCRIPT_GEN} = [% scriptgen %];
+}
use strict;
use Getopt::Long;
[% IF type == 'C' %]
sub default : Private {
- my ( $self, $c ) = \@_;
+ my ( $self, $c ) = @_;
$c->res->output('Congratulations, [% class %] is on Catalyst!');
}