if ($gen_app) {
$self->_mk_dirs;
- $self->_mk_config;
$self->_mk_appclass;
$self->_mk_readme;
$self->_mk_changes;
}
}
-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};
our $VERSION = '0.01';
#
+# Configure the application
+#
+__PACKAGE__->config( { name => '[% name %]' } );
+
+#
# Start the application
#
__PACKAGE__->setup;
install_script glob('script/*.pl');
auto_install;
WriteAll;
-__config__
-{
- "name" : "[% name %]"
-}
__readme__
Run script/[% appprefix %]_server.pl to test the application.
__changes__
my $keepalive = 0;
my $restart = 0;
my $restart_delay = 1;
-my $restart_regex = '\.yml$|\.yaml$|\.json|\.pm$';
+my $restart_regex = '\.yml$|\.yaml$|\.pm$';
my @argv = @ARGV;
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
- (defaults to '\.yml$|\.yaml$|\.json|\.pm$')
+ (defaults to '\.yml$|\.yaml$|\.pm$')
See also:
perldoc Catalyst::Manual