=head1 METHODS
-=over 4
-
-=item $self->package( $par, $engine )
+=head2 $self->package(\%options)
=cut
sub package {
my ( $self, $options ) = @_;
- my $par = $options->{par} || 'application.par';
+ my $par = $options->{output} || 'application.par';
my $engine = $options->{engine} || 'CGI';
# Check for PAR
my $par_test = File::Spec->catfile( $FindBin::Bin, '..', 'par_test.pl' );
unlink $par_test;
+ my $classes = '';
+ for my $req ( split ',', $options->{classes} ) {
+ $classes .= "require $req;\n";
+ }
my $version = $Catalyst::VERSION;
my $class = $options->{class};
my $tmp_file = IO::File->new("> $par_test");
use lib 'lib';
require $class;
import $class;
+$classes
EOF
$tmp_file->close;
'o' => $par,
'a' => [@files],
'p' => 1,
- 'B' => $options->{core}
+ 'B' => $options->{core},
+ 'm' => $options->{multiarch}
);
App::Packer::PAR->new(
frontend => 'Module::ScanDeps',
unlink $par_test;
}
-=back
-
=head1 AUTHOR
Sebastian Riedel, C<sri@oook.de>