use Pod::Usage;
use Catalyst::Helper;
-my $help = 0;
+my $help = 0;
+my $nonew = 0;
-GetOptions( 'help|?' => \$help );
+GetOptions( 'help|?' => \$help,
+ 'nonew' => \$nonew );
pod2usage(1) if ( $help || !$ARGV[0] );
-my $helper = Catalyst::Helper->new;
+my $helper = Catalyst::Helper->new({'.newfiles' => !$nonew});
pod2usage(1) unless $helper->mk_app( $ARGV[0] );
1;
Options:
-help display this help and exits
+ -nonew don't create a .new file where a file to be created exists
application-name has to be a valid Perl module name and can include ::
=head1 AUTHOR
-Sebastian Riedel Sebastian Riedel, C<sri@oook.de>
+Sebastian Riedel, C<sri@oook.de>
=head1 COPYRIGHT