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.yml" ) );
-}
-
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__