This file documents the revision history for Perl extension Catalyst.
5.58
+ - Added -makefile to catalyst.pl to generate a new Makefile.PL.
- Restored Catalyst::Build with a deprecation notice.
- Improved PAR support
- Replaced -short with auto-detection
$self->{author} = $self->{author} = $ENV{'AUTHOR'}
|| eval { @{ [ getpwuid($<) ] }[6] }
|| 'Catalyst developer';
-
- unless ( $self->{scripts} ) {
+
+ my $gen_scripts = ( $self->{makefile} ) ? 0 : 1;
+ my $gen_makefile = ( $self->{scripts} ) ? 0 : 1;
+ my $gen_app = ( $self->{scripts} || $self->{makefile} ) ? 0 : 1;
+
+ if ( $gen_app ) {
$self->_mk_dirs;
$self->_mk_appclass;
- $self->_mk_makefile;
$self->_mk_readme;
$self->_mk_changes;
$self->_mk_apptest;
$self->_mk_images;
$self->_mk_favicon;
}
- $self->_mk_cgi;
- $self->_mk_fastcgi;
- $self->_mk_server;
- $self->_mk_test;
- $self->_mk_create;
+ if ( $gen_makefile ) {
+ $self->_mk_makefile;
+ }
+ if ( $gen_scripts ) {
+ $self->_mk_cgi;
+ $self->_mk_fastcgi;
+ $self->_mk_server;
+ $self->_mk_test;
+ $self->_mk_create;
+ }
return 1;
}
my ( $self, $file, $content ) = @_;
if ( -e $file ) {
print qq/ exists "$file"\n/;
- return 0 unless ( $self->{'.newfiles'} || $self->{scripts} );
+ return 0 unless ( $self->{'.newfiles'}
+ || $self->{scripts}
+ || $self->{makefile} );
if ( $self->{'.newfiles'} ) {
if ( my $f = IO::File->new("< $file") ) {
my $oldcontent = join( '', (<$f>) );
use Pod::Usage;
use Catalyst::Helper;
-my $force = 0;
-my $help = 0;
-my $scripts = 0;
-my $short = 0;
+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] );
-my $helper =
- Catalyst::Helper->new(
- { '.newfiles' => !$force, '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;
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...