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=567e7cd6baacfef8bc272505478bf61bd9b9debe;hp=14ae648a0d61f86463ae0e14939c2862680a36db;hb=1c773d181e88f0e97195456526b1cf222a80b8e4;hpb=772ab8ae1affcaed555bfdb070e18ed1af592b71 diff --git a/script/catalyst.pl b/script/catalyst.pl index 14ae648..567e7cd 100755 --- a/script/catalyst.pl +++ b/script/catalyst.pl @@ -8,12 +8,14 @@ use Catalyst::Helper; my $help = 0; my $nonew = 0; -GetOptions( 'help|?' => \$help, - 'nonew' => \$nonew ); +GetOptions( + 'help|?' => \$help, + 'nonew' => \$nonew +); pod2usage(1) if ( $help || !$ARGV[0] ); -my $helper = Catalyst::Helper->new({'.newfiles' => !$nonew}); +my $helper = Catalyst::Helper->new( { '.newfiles' => !$nonew } ); pod2usage(1) unless $helper->mk_app( $ARGV[0] ); 1; @@ -118,9 +120,7 @@ test directory The application module generated by the C script is functional, -although it reacts to all requests by outputting the message: - - Congratulations, My::App is on Catalyst! +although it reacts to all requests by outputting a friendly welcome screen. =head1 NOTE @@ -143,15 +143,15 @@ L, L =head1 AUTHOR -Sebastian Riedel , -Andrew Ford +Sebastian Riedel, C, +Andrew Ford, C =head1 COPYRIGHT Copyright 2004-2005 Sebastian Riedel. All rights reserved. -This library is free software. You can redistribute it and/or modify it under -the same terms as perl itself. +This library is free software, you can redistribute it and/or modify it under +the same terms as Perl itself. =cut