# Needs to be here for PAR
require Catalyst;
- return 0 if $name =~ /[^\w\:]/;
+ if ( $name =~ /[^\w\:]/ ) {
+ warn "Error: Invalid application name.\n";
+ return 0;
+ }
$self->{name} = $name;
$self->{dir} = $name;
$self->{dir} =~ s/\:\:/-/g;
use [% name %];
my $help = 0;
-my ( $listen, $nproc, $pidfile );
+my ( $listen, $nproc, $pidfile, $manager, $detach );
GetOptions(
'help|?' => \$help,
'listen|l=s' => \$listen,
'nproc|n=i' => \$nproc,
'pidfile|p=s' => \$pidfile,
+ 'manager|M=s' => \$manager,
+ 'daemon|d' => \$detach,
);
pod2usage(1) if $help;
$listen,
{ nproc => $nproc,
pidfile => $pidfile,
+ manager => $manager,
+ detach => $detach,
}
);
requires -listen)
-p -pidfile specify filename for pid file
(requires -listen)
+ -d -daemon daemonize (requires -listen)
+ -M -manager specify alternate process manager
+ (FCGI::ProcessManager sub-class)
+ or empty string to disable
=head1 DESCRIPTION
use Pod::Usage;
use Catalyst::Helper;
-my $help = 0;
-my $nonew = 0;
+my $force = 0;
+my $help = 0;
my $short = 0;
GetOptions(
- 'help|?' => \$help,
- 'nonew' => \$nonew,
- 'short' => \$short
+ 'nonew|force' => \$force,
+ 'help|?' => \$help,
+ 'short' => \$short
);
pod2usage(1) if ( $help || !$ARGV[0] );
my $helper =
- Catalyst::Helper->new( { '.newfiles' => !$nonew, short => $short } );
+ Catalyst::Helper->new( { '.newfiles' => !$force, short => $short } );
pod2usage(1) unless $helper->mk_component( '[% name %]', @ARGV );
[% appprefix %]_create.pl [options] model|view|controller name [helper] [options]
Options:
+ -force 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
-short use short types, like C instead of Controller...
Examples:
Existing component files are not overwritten. If any of the component files
to be created already exist the file will be written with a '.new' suffix.
-This behavior can be suppressed with the C<-nonew> option.
+This behavior can be suppressed with the C<-force> option.
=head1 AUTHOR
my $engine = 'CGI';
my $help = 0;
my $multiarch = 0;
-my $par = '[% appprefix %].par';
+my $output = '[% appprefix %].par';
GetOptions(
'classes=s' => \$classes,
'engine=s' => \$engine,
'help|?' => \$help,
'multiarch' => \$multiarch,
- 'par=s' => \$par
+ 'output=s' => \$output
);
pod2usage(1) if $help;
classes => $classes,
core => $core,
engine => $engine,
- par => $par,
multiarch => $multiarch,
+ output => $output,
class => '[% name %]'
} );
=head1 NAME
-[% appprefix %]_package.pl - Package a Catalyst application
+[% appprefix %]_package.pl - Package Catalyst Applications
=head1 SYNOPSIS
-engine engine to use for dependency detection (defaults to CGI)
-help display this help and exits
-multiarch enable multiarch support (defaults to false)
- -par name for the par archive (defaults to [% appprefix %].par)
+ -output name for the par archive (defaults to [% appprefix %].par)
Examples:
[% appprefix %]_package.pl -engine FastCGI
- [% appprefix %]_package.pl -par foo_linux_i386_apache2.par -engine Apache2
- [% appprefix %]_package.pl -classes Test::More,Foo::Bar -par foo.par
+ [% appprefix %]_package.pl -o foo_linux_i386_apache2.par -engine Apache2
+ [% appprefix %]_package.pl -classes Test::More,Foo::Bar -o foo.par
See also:
perldoc Catalyst::Manual
=head1 DESCRIPTION
-Package a Catalyst application with L<PAR>.
+Package Catalyst Applications with L<PAR>.
=head1 AUTHOR