use Pod::Usage;
use Catalyst::Helper;
+my $force = 0;
my $help = 0;
-my $nonew = 0;
my $scripts = 0;
my $short = 0;
GetOptions(
- 'help|?' => \$help,
- 'nonew' => \$nonew,
- 'scripts' => \$scripts,
- 'short' => \$short
+ 'help|?' => \$help,
+ 'force|nonew' => \$force,
+ 'scripts' => \$scripts,
+ 'short' => \$short
);
pod2usage(1) if ( $help || !$ARGV[0] );
my $helper =
Catalyst::Helper->new(
- { '.newfiles' => !$nonew, 'scripts' => $scripts, 'short' => $short } );
+ { '.newfiles' => !$force, 'scripts' => $scripts, 'short' => $short } );
pod2usage(1) unless $helper->mk_app( $ARGV[0] );
1;
catalyst.pl [options] application-name
Options:
+ -force don't create a .new file where a file to be created exists
-help display this help and exits
- -nonew don't create a .new file where a file to be created exists
-scripts update helper scripts only
-short use short types, like C instead of Controller...
catalyst.pl My::App
catalyst.pl MyApp
+ To upgrade your app to a new version of Catalyst:
+ catalyst.pl -force -scripts MyApp
+
=head1 DESCRIPTION