$self->{appprefix} = lc $self->{dir};
$self->{appprefix} =~ s/-/_/g;
$self->{startperl} = $Config{startperl};
- $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN;
+ $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN || 4;
$self->{author} = $self->{author} = $ENV{'AUTHOR'}
|| eval { @{ [ getpwuid($<) ] }[6] }
|| 'Catalyst developer';
}
=back
+
[% END %]
=head1 AUTHOR