require Module::Pluggable::Fast;
# Helper script generation
-our $CATALYST_SCRIPT_GEN = 13;
+our $CATALYST_SCRIPT_GEN = 14;
__PACKAGE__->mk_classdata($_)
for qw/components arguments dispatcher engine log dispatcher_class
use Pod::Usage;
use Catalyst::PAR;
+my $engine = 'CGI';
my $help = 0;
+my $par = '[% appprefix %].par';
-GetOptions( 'help|?' => \$help );
+GetOptions(
+ 'engine=s' => \$engine,
+ 'help|?' => \$help,
+ 'par=s' => \$par
+);
pod2usage(1) if $help;
-my $par = Catalyst::PAR->new->package( {
- par => $ARGV[0] || '[% appprefix %].par',
- engine => $ARGV[1],
+Catalyst::PAR->new->package( {
+ engine => $engine,
+ par => $par,
class => '[% name %]'
} );
=head1 SYNOPSIS
-[% appprefix %]_package.pl [par] [engine]
+[% appprefix %]_package.pl
Options:
+ -engine engine to use for dependency detection
-help display this help and exits
+ -par name for the par archive
Examples:
[% appprefix %]_package.pl [% appprefix %].par FastCGI
use IO::File;
use File::Spec;
use File::Find;
-require Catalyst;
=head1 NAME
$tmp_file->close;
# Create package
+ local $SIG{__WARN__} = sub { };
+ open my $olderr, '>&STDERR';
+ open STDERR, '>', File::Spec->devnull;
my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files] );
App::Packer::PAR->new(
frontend => 'Module::ScanDeps',
backopts => \%opt,
args => ['par_test.pl'],
)->go;
+ open STDERR, '>&', $olderr;
unlink $par_test;
}