if ($gen_app) {
$self->_mk_dirs;
+ $self->_mk_config;
$self->_mk_appclass;
$self->_mk_readme;
$self->_mk_changes;
|| eval { @{ [ getpwuid($<) ] }[6] }
|| 'A clever guy';
$self->{base} ||= File::Spec->catdir( $FindBin::Bin, '..' );
- die $self->{base};
unless ( $_[0] =~ /^(?:model|view|controller)$/i ) {
my $helper = shift;
my @args = @_;
}
}
+sub _mk_config {
+ my $self = shift;
+ my $dir = $self->{dir};
+ my $appprefix = $self->{appprefix};
+ $self->render_file( 'config',
+ File::Spec->catfile( $dir, "$appprefix.json" ) );
+}
+
sub _mk_readme {
my $self = shift;
my $dir = $self->{dir};
# Set flags and add plugins for the application
#
# -Debug: activates the debug mode for very useful log messages
-# Static::Simple: will serve static files from the applications root directory
+# Static::Simple: will serve static files from the application's root
+# directory
#
use Catalyst qw/-Debug Static::Simple/;
our $VERSION = '0.01';
#
-# Configure the application
-#
-__PACKAGE__->config( name => '[% name %]' );
-
-#
# Start the application
#
__PACKAGE__->setup;
=head1 METHODS
+=cut
+
=head2 default
=cut
__makefile__
use inc::Module::Install;
-name('[% dir %]');
-abstract('Catalyst Application');
-author('[% author %]');
-version_from('[% path %]');
-license('perl');
+name '[% dir %]';
+all_from '[% path %]';
-include('ExtUtils::AutoInstall');
+requires Catalyst => '5.62';
-requires( Catalyst => '5.58' );
+catalyst;
-catalyst_files();
-
-install_script( glob('script/*.pl') );
-auto_install();
-&WriteAll;
+install_script glob('script/*.pl');
+auto_install;
+WriteAll;
+__config__
+{
+ "name": "[% name %]"
+}
__readme__
Run script/[% appprefix %]_server.pl to test the application.
__changes__
- initial revision, generated by Catalyst
__apptest__
use Test::More tests => 2;
-use_ok( Catalyst::Test, '[% name %]' );
+BEGIN { use_ok( Catalyst::Test, '[% name %]' ); }
ok( request('/')->is_success );
__podtest__
(requires -listen)
-d -daemon daemonize (requires -listen)
-M -manager specify alternate process manager
- (FCGI::ProcessManager sub-class)
+ (FCGI::ProcManager sub-class)
or empty string to disable
=head1 DESCRIPTION
my $keepalive = 0;
my $restart = 0;
my $restart_delay = 1;
-my $restart_regex = '\.yml$|\.yaml$|\.pm$';
+my $restart_regex = '\.yml$|\.yaml$|\.json|\.pm$';
my @argv = @ARGV;
$ENV{CATALYST_DEBUG} = 1;
}
+# This is require instead of use so that the above environment
+# variables can be set at runtime.
require [% name %];
[% name %]->run( $port, $host, {
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
- (defaults to '\.yml$|\.yaml$|\.pm$')
+ (defaults to '\.yml$|\.yaml$|\.json|\.pm$')
See also:
perldoc Catalyst::Manual