use File::Find;
use FindBin;
-use File::Copy::Recursive 'rcopy';
+use File::Copy::Recursive;
use File::Spec ();
-use Getopt::Long;
+use Getopt::Long ();
use Data::Dumper;
my $SAFETY = 0;
=head1 NAME
Module::Install::Catalyst - Module::Install extension for Catalyst
-
+
=head1 SYNOPSIS
-
+
use inc::Module::Install;
-
+
name 'MyApp';
all_from 'lib/MyApp.pm';
-
+
requires 'Catalyst::Runtime' => '5.7014';
-
+
catalyst_ignore('.*temp');
catalyst_ignore('.*tmp');
catalyst;
sub catalyst {
my $self = shift;
+
+ if($Module::Install::AUTHOR) {
+ $self->include("File::Copy::Recursive");
+ }
+
print <<EOF;
*** Module::Install::Catalyst
EOF
=head2 catalyst_files
-Collect a list of all files a Catalyst application consists of and copy it
-inside the blib/lib/ directory. Files and directories that match the modules
+Collect a list of all files a Catalyst application consists of and copy it
+inside the blib/lib/ directory. Files and directories that match the modules
ignore list are excluded (see L<catalyst_ignore> and L<catalyst_ignore_all>).
=cut
my @path = split '-', $self->name;
for my $orig (@files) {
my $path = File::Spec->catdir( 'blib', 'lib', @path, $orig );
- rcopy( $orig, $path );
+ File::Copy::Recursive::rcopy( $orig, $path );
}
}
@IGNORE = @$ignore;
}
-=head2 catalyst_ignore(\@ignore)
+=head2 catalyst_ignore(@ignore)
Add a regexp to the list of ignored patterns. Can be called multiple times.
Example:
# part of your Makefile.PL
-
- catalyst_par_options("-v -f Bleach -z 9");
+
+ catalyst_par_options("--verbose=2 -f Bleach -z 9");
# verbose mode; use filter 'Bleach'; zip with compression level 9
catalyst;
Note1: There is no reason to use catalyst_par_options() command multiple times
as you can spacify in "$optstring" as many options as you want. Still, it
-is supported to call catalyst_par_options(...) more than once - in that case the
-specified options are merged (however it does merge arrays with values specified
-by parameters -a -A -X -f -F -I -l -M).
+is supported to call catalyst_par_options() more than once. In that case the
+specified options are merged (collisions are handled on principle "later wins").
+BEWARE: you are discouraged from using parameters -a -A -X -f -F -I -l -M in
+multiple catalyst_par_options() as they are not merged but replaced as you would
+expected.
-Note2: By default the options "-x=1 -p=1 -n=0 -o=<appname>.par" are set. You can
-override them by catalyst_par_options(); however B<don't change them> unless you
-exactly know what you are doing.
+Note2: By default the options "-x -p -o=<appname>.par" are set and option "-n"
+is unset. This default always overrides whatever you specify by
+catalyst_par_options().
=cut
sub catalyst_par_options {
my ( $self, $optstring ) = @_;
- my %o = ();
eval "use PAR::Packer ()";
if ($@) {
warn "WARNING: catalyst_par_options ignored - you need PAR::Packer\n"
}
else {
- Getopt::Long::Configure ("no_ignore_case");
- Getopt::Long::GetOptionsFromString($optstring, \%o, PAR::Packer->options);
+ my $p = Getopt::Long::Parser->new(config => ['no_ignore_case']);
+ my %o;
+ require Text::ParseWords;
+ {
+ local @ARGV = Text::ParseWords::shellwords($optstring);
+ $p->getoptions(\%o, PAR::Packer->options);
+ }
%PAROPTS = ( %PAROPTS, %o);
- }
+ }
}
=head2 catalyst_par_script($script)
open my $olderr, '>&STDERR';
open STDERR, '>', File::Spec->devnull;
my %opt = (
+ %{$PAROPTS},
+ # take user defined options first and override them with harcoded defaults
'x' => 1,
'n' => 0,
'o' => $par,
'p' => 1,
- %{$PAROPTS},
- # user defined options override the harcoded defaults
);
# do not replace the whole $opt{'a'} array; just push required default value
- push @{$opt{'a'}}, grep( !/par.pl/, glob '.' );
+ push @{$opt{'a'}}, grep( !/par.pl/, glob '.' );
App::Packer::PAR->new(
frontend => 'Module::ScanDeps',