use IO::File;
use FindBin;
use Template;
-our $CATALYST_SCRIPT_GEN = 2;
+use Catalyst;
my %cache;
$self->{dir} = $name;
$self->{dir} =~ s/\:\:/-/g;
$self->{startperl} = $Config{startperl};
- $self->{scriptgen}=$CATALYST_SCRIPT_GEN;
+ $self->{scriptgen}=$Catalyst::CATALYST_SCRIPT_GEN;
+ $self->{author}=$self->{author} = $ENV{'AUTHOR'} ||
+ @{[getpwuid($<)]}[6];
$self->_mk_dirs;
$self->_mk_appclass;
$self->_mk_makefile;
my $self = shift;
my $app = shift;
$self->{app} = $app;
+ $self->{author}=$self->{author} = $ENV{'AUTHOR'} ||
+ @{[getpwuid($<)]}[6];
$self->{base} = File::Spec->catdir( $FindBin::Bin, '..' );
unless ( $_[0] =~ /^model|m|view|v|controller|c\$/i ) {
my $helper = shift;
Catalyst::Helper::View::
Catalyst::Helper::Controller::
+=head1 NOTE
+
+The helpers will read author name from /etc/passwd by default.
+To override, please export the AUTHOR variable.
+
=head1 SEE ALSO
L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
=head1 AUTHOR
-Clever guy
+[%author%]
=head1 LICENSE
Run script/server.pl to test the application.
__changes__
-This file documents the revision history for Perl extension $name.
+This file documents the revision history for Perl extension [% name %].
0.01 [% time %]
- initial revision, generated by Catalyst
=head1 AUTHOR
-Clever guy
+[%author%]
=head1 LICENSE