X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=script%2Fcatalyst.pl;fp=script%2Fcatalyst.pl;h=95d84ef747f5158e318635ff19f21968323e6337;hp=52a9d42a09eb9812b4543c79a7bd6b4023e585c6;hb=640faa87f0c572b58acd22124bfa6f6c59106873;hpb=bbd9334139a4b16f488c867c9bfb17b35037ad6f diff --git a/script/catalyst.pl b/script/catalyst.pl index 52a9d42..95d84ef 100755 --- a/script/catalyst.pl +++ b/script/catalyst.pl @@ -5,23 +5,23 @@ use Getopt::Long; 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; @@ -36,8 +36,8 @@ catalyst - Bootstrap a Catalyst application 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... @@ -48,7 +48,7 @@ catalyst.pl [options] application-name catalyst.pl MyApp To upgrade your app to a new version of Catalyst: - catalyst.pl -nonew -scripts MyApp + catalyst.pl -force -scripts MyApp =head1 DESCRIPTION