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=e9083cc28d06bed7ecf4e4f4d97376454b3712a0;hp=287c12e34973c21e6da7b727b0d2d611ffc46f68;hb=74cd30870630f5e7b43dd7768a2c3c13355f6019;hpb=46635e11b624ea371890e7b0740b68e8eaa07b1f diff --git a/script/catalyst.pl b/script/catalyst.pl index 287c12e..e9083cc 100755 --- a/script/catalyst.pl +++ b/script/catalyst.pl @@ -26,14 +26,12 @@ my $force = 0; my $help = 0; my $makefile = 0; my $scripts = 0; -my $short = 0; GetOptions( 'help|?' => \$help, 'force|nonew' => \$force, 'makefile' => \$makefile, 'scripts' => \$scripts, - 'short' => \$short ); pod2usage(1) if ( $help || !$ARGV[0] ); @@ -43,7 +41,7 @@ my $helper = Catalyst::Helper->new( '.newfiles' => !$force, 'makefile' => $makefile, 'scripts' => $scripts, - 'short' => $short, + 'short' => 0, # FIXME - to be removed. } ); pod2usage(1) unless $helper->mk_app( $ARGV[0] ); @@ -67,7 +65,6 @@ upgrade the skeleton of your old application. -help display this help and exit -makefile only update Makefile.PL -scripts only update helper scripts - -short use short names, M/V/C instead of Model/View/Controller. application-name must be a valid Perl module name and can include "::", which will be converted to '-' in the project name.