use strict;
use Getopt::Long;
use Pod::Usage;
-use Catalyst::Helper;
+eval 'use Catalyst::Helper "1.0";';
+die "Please install Catalyst::Helper!\n" if $@;
my $force = 0;
my $help = 0;
pod2usage(1) if ( $help || !$ARGV[0] );
-my $helper = Catalyst::Helper->new( {
- '.newfiles' => !$force,
- 'makefile' => $makefile,
- 'scripts' => $scripts,
- 'short' => $short,
-} );
+my $helper = Catalyst::Helper->new(
+ {
+ '.newfiles' => !$force,
+ 'makefile' => $makefile,
+ 'scripts' => $scripts,
+ 'short' => $short,
+ }
+);
pod2usage(1) unless $helper->mk_app( $ARGV[0] );
1;
catalyst.pl [options] application-name
+'catalyst.pl' creates a skeleton for a new application, and allows you to
+upgrade the skeleton of your old application.
+
Options:
-force don't create a .new file where a file to be created exists
- -help display this help and exits
- -makefile update Makefile.PL only
- -scripts update helper scripts only
- -short use short types, like C instead of Controller...
+ -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.
- application-name must be a valid Perl module name and can include "::"
Examples:
catalyst.pl My::App