$self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN;
$self->{author} = $self->{author} = $ENV{'AUTHOR'}
|| eval { @{ [ getpwuid($<) ] }[6] }
- || 'A clever guy';
+ || 'Catalyst developer';
$self->_mk_dirs;
$self->_mk_appclass;
$self->_mk_build;
=head1 METHODS
-=over4
+=over 4
=item default
$c->res->output('Congratulations, [% name %] is on Catalyst!');
}
+=back
+
=head1 AUTHOR
[%author%]
);
$build->create_build_script;
__readme__
-Run script/[% apprefix %]_server.pl to test the application.
+Run script/[% appprefix %]_server.pl to test the application.
__changes__
This file documents the revision history for Perl extension [% name %].
0.01 [% time %]
all_pod_coverage_ok();
__cgi__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
use strict;
use FindBin;
-use lib "$FindBin::Bin/../lib";
+use Path::Class;
+
+BEGIN {
+ $ENV{CATALYST_ENGINE} ||= 'CGI';
+ use lib dir($FindBin::Bin)->parent->subdir('lib')->stringify;
+}
+
use [% name %];
[% name %]->run;
__fastcgi__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
-
use strict;
use FindBin;
-use lib "$FindBin::Bin/../lib";
+use Path::Class;
+
+BEGIN {
+ $ENV{CATALYST_ENGINE} ||= 'FastCGI';
+ use lib dir($FindBin::Bin)->parent->subdir('lib')->stringify;
+}
+
use [% name %];
[% name %]->run;
__server__
[% startperl %] -w
-BEGIN {
- $ENV{CATALYST_ENGINE} ||= 'HTTP';
- $ENV{CATALYST_SCRIPT_GEN} = [% scriptgen %];
-}
-
use strict;
use Getopt::Long;
use Pod::Usage;
use FindBin;
-use lib "$FindBin::Bin/../lib";
+use Path::Class;
+
+BEGIN {
+ $ENV{CATALYST_ENGINE} ||= 'HTTP';
+ $ENV{CATALYST_SCRIPT_GEN} = [% scriptgen %];
+ use lib dir($FindBin::Bin)->parent->subdir('lib')->stringify;
+}
+
use [% name %];
my $help = 0;
__test__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} ||= 'Test' }
-
use strict;
use Getopt::Long;
use Pod::Usage;
use FindBin;
-use lib "$FindBin::Bin/../lib";
+use Path::Class;
+
+BEGIN {
+ $ENV{CATALYST_ENGINE} ||= 'Test';
+ use lib dir($FindBin::Bin)->parent->subdir('lib')->stringify;
+}
+
use [% name %];
my $help = 0;
[% IF type == 'C' %]
=head1 METHODS
-=over4
+=over 4
=item default
my ( $self, $c ) = @_;
$c->res->output('Congratulations, [% class %] is on Catalyst!');
}
+
+=back
+
[% END %]
=head1 AUTHOR