[catagits/Catalyst-Devel.git] / lib / Module / Install / Catalyst.pm

package Module::Install::Catalyst;

use strict;

our @ISA;
require Module::Install::Base;
@ISA = qw/Module::Install::Base/;

use File::Find;
use FindBin;
use File::Copy::Recursive 'rcopy';
use File::Spec ();
use Getopt::Long ();
use Data::Dumper;

my $SAFETY = 0;

our @IGNORE =
  qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README
  _build blib lib script t inc .*\.svn \.git _darcs \.bzr \.hg
  debian build-stamp install-stamp configure-stamp/;
our @CLASSES   = ();
our $ENGINE    = 'CGI';
our $SCRIPT    = '';
our $USAGE     = '';
our %PAROPTS   = ();

=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;
  WriteAll;

=head1 DESCRIPTION

L<Module::Install> extension for Catalyst.

=head1 METHODS

=head2 catalyst

Calls L<catalyst_files> and L<catalyst_par>. Should be the last catalyst*
command called in C<Makefile.PL>.

=cut

sub catalyst {
    my $self = shift;
    print <<EOF;
*** Module::Install::Catalyst
EOF
    $self->catalyst_files;
    $self->catalyst_par;
    print <<EOF;
*** Module::Install::Catalyst finished.
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
ignore list are excluded (see L<catalyst_ignore> and L<catalyst_ignore_all>).

=cut

sub catalyst_files {
    my $self = shift;

    chdir $FindBin::Bin;

    my @files;
    opendir CATDIR, '.';
  CATFILES: for my $name ( readdir CATDIR ) {
        for my $ignore (@IGNORE) {
            next CATFILES if $name =~ /^$ignore$/;
            next CATFILES if $name !~ /\w/;
        }
        push @files, $name;
    }
    closedir CATDIR;
    my @path = split '-', $self->name;
    for my $orig (@files) {
        my $path = File::Spec->catdir( 'blib', 'lib', @path, $orig );
        rcopy( $orig, $path );
    }
}

=head2 catalyst_ignore_all(\@ignore)

This function replaces the built-in default ignore list with the given list.

=cut

sub catalyst_ignore_all {
    my ( $self, $ignore ) = @_;
    @IGNORE = @$ignore;
}

=head2 catalyst_ignore(\@ignore)

Add a regexp to the list of ignored patterns. Can be called multiple times.

=cut

sub catalyst_ignore {
    my ( $self, @ignore ) = @_;
    push @IGNORE, @ignore;
}

=head2 catalyst_par($name)

=cut

# Workaround for a namespace conflict
sub catalyst_par {
    my ( $self, $par ) = @_;
    $par ||= '';
    return if $SAFETY;
    $SAFETY++;
    my $name  = $self->name;
    my $usage = $USAGE;
    $usage =~ s/"/\\"/g;
    my $class_string = join "', '", @CLASSES;
    $class_string = "'$class_string'" if $class_string;
    local $Data::Dumper::Indent = 0;
    local $Data::Dumper::Terse = 1;
    local $Data::Dumper::Pad = ' ';
    my $paropts_string = Dumper(\%PAROPTS) || "{ }";
    $self->postamble(<<EOF);
catalyst_par :: all
\t\$(NOECHO) \$(PERL) -Ilib -Minc::Module::Install -MModule::Install::Catalyst -e"Catalyst::Module::Install::_catalyst_par( '$par', '$name', { CLASSES => [$class_string], PAROPTS => $paropts_string, ENGINE => '$ENGINE', SCRIPT => '$SCRIPT', USAGE => q#$usage# } )"
EOF
    print <<EOF;
Please run "make catalyst_par" to create the PAR package!
EOF
}

=head2 catalyst_par_core($core)

=cut

sub catalyst_par_core {
    my ( $self, $core ) = @_;
    $core ? ( $PAROPTS{'B'} = $core ) : $PAROPTS{'B'}++;
}

=head2 catalyst_par_classes(@clases)

=cut

sub catalyst_par_classes {
    my ( $self, @classes ) = @_;
    push @CLASSES, @classes;
}

=head2 catalyst_par_engine($engine)

=cut

sub catalyst_par_engine {
    my ( $self, $engine ) = @_;
    $ENGINE = $engine;
}

=head2 catalyst_par_multiarch($multiarch)

=cut

sub catalyst_par_multiarch {
    my ( $self, $multiarch ) = @_;
    $multiarch ? ( $PAROPTS{'m'} = $multiarch ) : $PAROPTS{'m'}++;
}

=head2 catalyst_par_options($optstring)

This command can be used in Makefile.PL to customise the PAR creation process.
The parameter "$optstring" contains a string with arguments in identical syntax
as arguments of B<pp> command from L<PAR::Packer> package.

Example:

    # part of your Makefile.PL

    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 (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 -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 ) = @_;
    eval "use PAR::Packer ()";
    if ($@) {
        warn "WARNING: catalyst_par_options ignored - you need PAR::Packer\n"
    }
    else {
        my $p = Getopt::Long::Parser->new(config => ['no_ignore_case']);
        my %o;
        {
            local @ARGV = $optstring;
            $p->getoptions(\%o, PAR::Packer->options);
        }
        %PAROPTS = ( %PAROPTS, %o);
    }
}

=head2 catalyst_par_script($script)

=cut

sub catalyst_par_script {
    my ( $self, $script ) = @_;
    $SCRIPT = $script;
}

=head2 catalyst_par_usage($usage)

=cut

sub catalyst_par_usage {
    my ( $self, $usage ) = @_;
    $USAGE = $usage;
}

package Catalyst::Module::Install;

use strict;
use FindBin;
use File::Copy::Recursive 'rmove';
use File::Spec ();

sub _catalyst_par {
    my ( $par, $class_name, $opts ) = @_;

    my $ENGINE    = $opts->{ENGINE};
    my $CLASSES   = $opts->{CLASSES} || [];
    my $USAGE     = $opts->{USAGE};
    my $SCRIPT    = $opts->{SCRIPT};
    my $PAROPTS   = $opts->{PAROPTS};

    my $name = $class_name;
    $name =~ s/::/_/g;
    $name = lc $name;
    $par ||= "$name.par";
    my $engine = $ENGINE || 'CGI';

    # Check for PAR
    eval "use PAR ()";
    die "Please install PAR\n" if $@;
    eval "use PAR::Packer ()";
    die "Please install PAR::Packer\n" if $@;
    eval "use App::Packer::PAR ()";
    die "Please install App::Packer::PAR\n" if $@;
    eval "use Module::ScanDeps ()";
    die "Please install Module::ScanDeps\n" if $@;

    my $root = $FindBin::Bin;
    $class_name =~ s/-/::/g;
    my $path = File::Spec->catfile( 'blib', 'lib', split( '::', $class_name ) );
    $path .= '.pm';
    unless ( -f $path ) {
        print qq/Not writing PAR, "$path" doesn't exist\n/;
        return 0;
    }
    print qq/Writing PAR "$par"\n/;
    chdir File::Spec->catdir( $root, 'blib' );

    my $par_pl = 'par.pl';
    unlink $par_pl;

    my $version = $Catalyst::VERSION;
    my $class   = $class_name;

    my $classes = '';
    $classes .= "    require $_;\n" for @$CLASSES;

    unlink $par_pl;

    my $usage = $USAGE || <<"EOF";
Usage:
    [parl] $name\[.par] [script] [arguments]

  Examples:
    parl $name.par $name\_server.pl -r
    myapp $name\_cgi.pl
EOF

    my $script   = $SCRIPT;
    my $tmp_file = IO::File->new("> $par_pl ");
    print $tmp_file <<"EOF";
if ( \$ENV{PAR_PROGNAME} ) {
    my \$zip = \$PAR::LibCache{\$ENV{PAR_PROGNAME}}
        || Archive::Zip->new(__FILE__);
    my \$script = '$script';
    \$ARGV[0] ||= \$script if \$script;
    if ( ( \@ARGV == 0 ) || ( \$ARGV[0] eq '-h' ) || ( \$ARGV[0] eq '-help' )) {
        my \@members = \$zip->membersMatching('.*script/.*\.pl');
        my \$list = "  Available scripts:\\n";
        for my \$member ( \@members ) {
            my \$name = \$member->fileName;
            \$name =~ /(\\w+\\.pl)\$/;
            \$name = \$1;
            next if \$name =~ /^main\.pl\$/;
            next if \$name =~ /^par\.pl\$/;
            \$list .= "    \$name\\n";
        }
        die <<"END";
$usage
\$list
END
    }
    my \$file = shift \@ARGV;
    \$file =~ s/^.*[\\/\\\\]//;
    \$file =~ s/\\.[^.]*\$//i;
    my \$member = eval { \$zip->memberNamed("./script/\$file.pl") };
    die qq/Can't open perl script "\$file"\n/ unless \$member;
    PAR::_run_member( \$member, 1 );
}
else {
    require lib;
    import lib 'lib';
    \$ENV{CATALYST_ENGINE} = '$engine';
    require $class;
    import $class;
    require Catalyst::Helper;
    require Catalyst::Test;
    require Catalyst::Engine::HTTP;
    require Catalyst::Engine::CGI;
    require Catalyst::Controller;
    require Catalyst::Model;
    require Catalyst::View;
    require Getopt::Long;
    require Pod::Usage;
    require Pod::Text;
    $classes
}
EOF
    $tmp_file->close;

    # Create package
    local $SIG{__WARN__} = sub { };
    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,
    );
    # do not replace the whole $opt{'a'} array; just push required default value
    push @{$opt{'a'}}, grep( !/par.pl/, glob '.' );

    App::Packer::PAR->new(
        frontend  => 'Module::ScanDeps',
        backend   => 'PAR::Packer',
        frontopts => \%opt,
        backopts  => \%opt,
        args      => ['par.pl'],
    )->go;

    open STDERR, '>&', $olderr;

    unlink $par_pl;
    chdir $root;
    rmove( File::Spec->catfile( 'blib', $par ), $par );
    return 1;
}

=head1 AUTHORS

Catalyst Contributors, see Catalyst.pm

=head1 LICENSE

This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

1;
Commit	Line	Data
134481a2	1	package Module::Install::Catalyst;
	2
	3	use strict;
	4
	5	our @ISA;
	6	require Module::Install::Base;
	7	@ISA = qw/Module::Install::Base/;
	8
	9	use File::Find;
	10	use FindBin;
	11	use File::Copy::Recursive 'rcopy';
	12	use File::Spec ();
09a0d496	13	use Getopt::Long ();
84a68fcf	14	use Data::Dumper;
134481a2	15
	16	my $SAFETY = 0;
	17
	18	our @IGNORE =
	19	qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README
d99c8718	20	_build blib lib script t inc .*\.svn \.git _darcs \.bzr \.hg
d99c8718	21	debian build-stamp install-stamp configure-stamp/;
134481a2	22	our @CLASSES = ();
134481a2	23	our $ENGINE = 'CGI';
2f7a957f	24	our $SCRIPT = '';
2f7a957f	25	our $USAGE = '';
84a68fcf	26	our %PAROPTS = ();
134481a2	27
	28	=head1 NAME
	29
d99c8718	30	Module::Install::Catalyst - Module::Install extension for Catalyst
e7c01705	31
134481a2	32	=head1 SYNOPSIS
e7c01705	33
d99c8718	34	use inc::Module::Install;
e7c01705	35
d99c8718	36	name 'MyApp';
d99c8718	37	all_from 'lib/MyApp.pm';
e7c01705	38
d99c8718	39	requires 'Catalyst::Runtime' => '5.7014';
e7c01705	40
d99c8718	41	catalyst_ignore('.*temp');
	42	catalyst_ignore('.*tmp');
	43	catalyst;
	44	WriteAll;
134481a2	45
	46	=head1 DESCRIPTION
	47
	48	L<Module::Install> extension for Catalyst.
	49
	50	=head1 METHODS
	51
	52	=head2 catalyst
	53
d99c8718	54	Calls L<catalyst_files> and L<catalyst_par>. Should be the last catalyst*
	55	command called in C<Makefile.PL>.
	56
134481a2	57	=cut
	58
	59	sub catalyst {
	60	my $self = shift;
	61	print <<EOF;
	62	*** Module::Install::Catalyst
	63	EOF
	64	$self->catalyst_files;
	65	$self->catalyst_par;
	66	print <<EOF;
	67	*** Module::Install::Catalyst finished.
	68	EOF
	69	}
	70
	71	=head2 catalyst_files
	72
e7c01705	73	Collect a list of all files a Catalyst application consists of and copy it
e7c01705	74	inside the blib/lib/ directory. Files and directories that match the modules
d99c8718	75	ignore list are excluded (see L<catalyst_ignore> and L<catalyst_ignore_all>).
d99c8718	76
134481a2	77	=cut
	78
	79	sub catalyst_files {
	80	my $self = shift;
	81
	82	chdir $FindBin::Bin;
	83
	84	my @files;
	85	opendir CATDIR, '.';
	86	CATFILES: for my $name ( readdir CATDIR ) {
	87	for my $ignore (@IGNORE) {
	88	next CATFILES if $name =~ /^$ignore$/;
	89	next CATFILES if $name !~ /\w/;
	90	}
	91	push @files, $name;
	92	}
	93	closedir CATDIR;
	94	my @path = split '-', $self->name;
	95	for my $orig (@files) {
	96	my $path = File::Spec->catdir( 'blib', 'lib', @path, $orig );
	97	rcopy( $orig, $path );
	98	}
	99	}
	100
	101	=head2 catalyst_ignore_all(\@ignore)
	102
d99c8718	103	This function replaces the built-in default ignore list with the given list.
d99c8718	104
134481a2	105	=cut
	106
	107	sub catalyst_ignore_all {
	108	my ( $self, $ignore ) = @_;
	109	@IGNORE = @$ignore;
	110	}
	111
	112	=head2 catalyst_ignore(\@ignore)
	113
d99c8718	114	Add a regexp to the list of ignored patterns. Can be called multiple times.
d99c8718	115
134481a2	116	=cut
	117
	118	sub catalyst_ignore {
	119	my ( $self, @ignore ) = @_;
	120	push @IGNORE, @ignore;
	121	}
	122
	123	=head2 catalyst_par($name)
	124
	125	=cut
	126
	127	# Workaround for a namespace conflict
	128	sub catalyst_par {
	129	my ( $self, $par ) = @_;
2f7a957f	130	$par \|\|= '';
134481a2	131	return if $SAFETY;
	132	$SAFETY++;
	133	my $name = $self->name;
	134	my $usage = $USAGE;
	135	$usage =~ s/"/\\"/g;
	136	my $class_string = join "', '", @CLASSES;
	137	$class_string = "'$class_string'" if $class_string;
84a68fcf	138	local $Data::Dumper::Indent = 0;
	139	local $Data::Dumper::Terse = 1;
	140	local $Data::Dumper::Pad = ' ';
	141	my $paropts_string = Dumper(\%PAROPTS) \|\| "{ }";
134481a2	142	$self->postamble(<<EOF);
134481a2	143	catalyst_par :: all
84a68fcf	144	\t\$(NOECHO) \$(PERL) -Ilib -Minc::Module::Install -MModule::Install::Catalyst -e"Catalyst::Module::Install::_catalyst_par( '$par', '$name', { CLASSES => [$class_string], PAROPTS => $paropts_string, ENGINE => '$ENGINE', SCRIPT => '$SCRIPT', USAGE => q#$usage# } )"
134481a2	145	EOF
	146	print <<EOF;
	147	Please run "make catalyst_par" to create the PAR package!
	148	EOF
	149	}
	150
	151	=head2 catalyst_par_core($core)
	152
	153	=cut
	154
	155	sub catalyst_par_core {
	156	my ( $self, $core ) = @_;
84a68fcf	157	$core ? ( $PAROPTS{'B'} = $core ) : $PAROPTS{'B'}++;
134481a2	158	}
	159
	160	=head2 catalyst_par_classes(@clases)
	161
	162	=cut
	163
	164	sub catalyst_par_classes {
	165	my ( $self, @classes ) = @_;
	166	push @CLASSES, @classes;
	167	}
	168
	169	=head2 catalyst_par_engine($engine)
	170
	171	=cut
	172
	173	sub catalyst_par_engine {
	174	my ( $self, $engine ) = @_;
	175	$ENGINE = $engine;
	176	}
	177
	178	=head2 catalyst_par_multiarch($multiarch)
	179
	180	=cut
	181
	182	sub catalyst_par_multiarch {
	183	my ( $self, $multiarch ) = @_;
84a68fcf	184	$multiarch ? ( $PAROPTS{'m'} = $multiarch ) : $PAROPTS{'m'}++;
	185	}
	186
	187	=head2 catalyst_par_options($optstring)
	188
	189	This command can be used in Makefile.PL to customise the PAR creation process.
	190	The parameter "$optstring" contains a string with arguments in identical syntax
	191	as arguments of B<pp> command from L<PAR::Packer> package.
	192
	193	Example:
	194
	195	# part of your Makefile.PL
e7c01705	196
4578b8ae	197	catalyst_par_options("--verbose=2 -f Bleach -z 9");
84a68fcf	198	# verbose mode; use filter 'Bleach'; zip with compression level 9
	199	catalyst;
	200
	201	Note1: There is no reason to use catalyst_par_options() command multiple times
	202	as you can spacify in "$optstring" as many options as you want. Still, it
4578b8ae	203	is supported to call catalyst_par_options() more than once. In that case the
e7c01705	204	specified options are merged (collisions are handled on principle "later wins").
4578b8ae	205	BEWARE: you are discouraged from using parameters -a -A -X -f -F -I -l -M in
e7c01705	206	multiple catalyst_par_options() as they are not merged but replaced as you would
4578b8ae	207	expected.
84a68fcf	208
e7c01705	209	Note2: By default the options "-x -p -o=<appname>.par" are set and option "-n"
4578b8ae	210	is unset. This default always overrides whatever you specify by
4578b8ae	211	catalyst_par_options().
84a68fcf	212
	213	=cut
	214
	215	sub catalyst_par_options {
	216	my ( $self, $optstring ) = @_;
84a68fcf	217	eval "use PAR::Packer ()";
	218	if ($@) {
	219	warn "WARNING: catalyst_par_options ignored - you need PAR::Packer\n"
	220	}
	221	else {
09a0d496	222	my $p = Getopt::Long::Parser->new(config => ['no_ignore_case']);
	223	my %o;
	224	{
	225	local @ARGV = $optstring;
	226	$p->getoptions(\%o, PAR::Packer->options);
	227	}
84a68fcf	228	%PAROPTS = ( %PAROPTS, %o);
7235d8b3	229	}
134481a2	230	}
	231
	232	=head2 catalyst_par_script($script)
	233
	234	=cut
	235
	236	sub catalyst_par_script {
	237	my ( $self, $script ) = @_;
	238	$SCRIPT = $script;
	239	}
	240
	241	=head2 catalyst_par_usage($usage)
	242
	243	=cut
	244
	245	sub catalyst_par_usage {
	246	my ( $self, $usage ) = @_;
	247	$USAGE = $usage;
	248	}
	249
	250	package Catalyst::Module::Install;
	251
	252	use strict;
	253	use FindBin;
	254	use File::Copy::Recursive 'rmove';
	255	use File::Spec ();
	256
	257	sub _catalyst_par {
	258	my ( $par, $class_name, $opts ) = @_;
	259
	260	my $ENGINE = $opts->{ENGINE};
	261	my $CLASSES = $opts->{CLASSES} \|\| [];
	262	my $USAGE = $opts->{USAGE};
	263	my $SCRIPT = $opts->{SCRIPT};
84a68fcf	264	my $PAROPTS = $opts->{PAROPTS};
134481a2	265
	266	my $name = $class_name;
	267	$name =~ s/::/_/g;
	268	$name = lc $name;
	269	$par \|\|= "$name.par";
	270	my $engine = $ENGINE \|\| 'CGI';
	271
	272	# Check for PAR
	273	eval "use PAR ()";
	274	die "Please install PAR\n" if $@;
	275	eval "use PAR::Packer ()";
	276	die "Please install PAR::Packer\n" if $@;
	277	eval "use App::Packer::PAR ()";
	278	die "Please install App::Packer::PAR\n" if $@;
	279	eval "use Module::ScanDeps ()";
	280	die "Please install Module::ScanDeps\n" if $@;
	281
	282	my $root = $FindBin::Bin;
	283	$class_name =~ s/-/::/g;
	284	my $path = File::Spec->catfile( 'blib', 'lib', split( '::', $class_name ) );
	285	$path .= '.pm';
	286	unless ( -f $path ) {
	287	print qq/Not writing PAR, "$path" doesn't exist\n/;
	288	return 0;
	289	}
	290	print qq/Writing PAR "$par"\n/;
	291	chdir File::Spec->catdir( $root, 'blib' );
	292
	293	my $par_pl = 'par.pl';
	294	unlink $par_pl;
	295
	296	my $version = $Catalyst::VERSION;
	297	my $class = $class_name;
	298
	299	my $classes = '';
	300	$classes .= " require $_;\n" for @$CLASSES;
	301
	302	unlink $par_pl;
	303
	304	my $usage = $USAGE \|\| <<"EOF";
	305	Usage:
	306	[parl] $name\[.par] [script] [arguments]
	307
	308	Examples:
	309	parl $name.par $name\_server.pl -r
	310	myapp $name\_cgi.pl
	311	EOF
	312
	313	my $script = $SCRIPT;
	314	my $tmp_file = IO::File->new("> $par_pl ");
	315	print $tmp_file <<"EOF";
	316	if ( \$ENV{PAR_PROGNAME} ) {
	317	my \$zip = \$PAR::LibCache{\$ENV{PAR_PROGNAME}}
	318	\|\| Archive::Zip->new(__FILE__);
	319	my \$script = '$script';
	320	\$ARGV[0] \|\|= \$script if \$script;
	321	if ( ( \@ARGV == 0 ) \|\| ( \$ARGV[0] eq '-h' ) \|\| ( \$ARGV[0] eq '-help' )) {
	322	my \@members = \$zip->membersMatching('.script/.\.pl');
	323	my \$list = " Available scripts:\\n";
	324	for my \$member ( \@members ) {
	325	my \$name = \$member->fileName;
	326	\$name =~ /(\\w+\\.pl)\$/;
	327	\$name = \$1;
	328	next if \$name =~ /^main\.pl\$/;
329	next if \$name =~ /^par\.pl\$/;
330	\$list .= " \$name\\n";
331	}
332	die <<"END";
333	$usage
334	\$list
335	END
336	}
337	my \$file = shift \@ARGV;
338	\$file =~ s/^.*[\\/\\\\]//;
339	\$file =~ s/\\.[^.]*\$//i;
340	my \$member = eval { \$zip->memberNamed("./script/\$file.pl") };
341	die qq/Can't open perl script "\$file"\n/ unless \$member;
342	PAR::_run_member( \$member, 1 );
343	}
344	else {
345	require lib;
346	import lib 'lib';
347	\$ENV{CATALYST_ENGINE} = '$engine';
348	require $class;
349	import $class;
350	require Catalyst::Helper;
351	require Catalyst::Test;
352	require Catalyst::Engine::HTTP;
353	require Catalyst::Engine::CGI;
354	require Catalyst::Controller;
355	require Catalyst::Model;
356	require Catalyst::View;
357	require Getopt::Long;
358	require Pod::Usage;
359	require Pod::Text;
360	$classes
361	}
362	EOF
363	$tmp_file->close;
364
365	# Create package
366	local $SIG{__WARN__} = sub { };
367	open my $olderr, '>&STDERR';
368	open STDERR, '>', File::Spec->devnull;
369	my %opt = (
4578b8ae	370	%{$PAROPTS},
4578b8ae	371	# take user defined options first and override them with harcoded defaults
134481a2	372	'x' => 1,
	373	'n' => 0,
	374	'o' => $par,
134481a2	375	'p' => 1,
134481a2	376	);
84a68fcf	377	# do not replace the whole $opt{'a'} array; just push required default value
e7c01705	378	push @{$opt{'a'}}, grep( !/par.pl/, glob '.' );
84a68fcf	379
134481a2	380	App::Packer::PAR->new(
	381	frontend => 'Module::ScanDeps',
	382	backend => 'PAR::Packer',
	383	frontopts => \%opt,
	384	backopts => \%opt,
	385	args => ['par.pl'],
	386	)->go;
	387
	388	open STDERR, '>&', $olderr;
	389
	390	unlink $par_pl;
	391	chdir $root;
	392	rmove( File::Spec->catfile( 'blib', $par ), $par );
	393	return 1;
	394	}
	395
cb536e7b	396	=head1 AUTHORS
134481a2	397
cb536e7b	398	Catalyst Contributors, see Catalyst.pm
134481a2	399
	400	=head1 LICENSE
	401
7cd3b67e	402	This library is free software. You can redistribute it and/or modify it under
134481a2	403	the same terms as Perl itself.
	404
	405	=cut
	406
	407	1;