X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fcatalyst.pl;h=6a20cfed16f03a3105c68c720b28fb77feaa66cc;hb=0cf56dbcd3a060c815aa5e66a67709bb51efd80d;hp=567e7cd6baacfef8bc272505478bf61bd9b9debe;hpb=1c773d181e88f0e97195456526b1cf222a80b8e4;p=catagits%2FCatalyst-Runtime.git diff --git a/script/catalyst.pl b/script/catalyst.pl index 567e7cd..6a20cfe 100755 --- a/script/catalyst.pl +++ b/script/catalyst.pl @@ -5,17 +5,23 @@ use Getopt::Long; use Pod::Usage; use Catalyst::Helper; -my $help = 0; -my $nonew = 0; +my $help = 0; +my $nonew = 0; +my $scripts = 0; +my $short = 0; GetOptions( - 'help|?' => \$help, - 'nonew' => \$nonew + 'help|?' => \$help, + 'nonew' => \$nonew, + 'scripts' => \$scripts, + 'short' => \$short ); pod2usage(1) if ( $help || !$ARGV[0] ); -my $helper = Catalyst::Helper->new( { '.newfiles' => !$nonew } ); +my $helper = + Catalyst::Helper->new( + { '.newfiles' => !$nonew, 'scripts' => $scripts, 'short' => $short } ); pod2usage(1) unless $helper->mk_app( $ARGV[0] ); 1; @@ -30,8 +36,10 @@ catalyst - Bootstrap a Catalyst application catalyst.pl [options] application-name Options: - -help display this help and exits - -nonew 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... application-name must be a valid Perl module name and can include "::"