X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FPAR.pm;h=7731d76f404608739e25641445e1b18950932ffb;hp=fe336e67798d8444cd46692143583c854169cdfc;hb=c5e57c7a39e5f9be6694a41181aee045e0a95ac8;hpb=124b7dd27bfad018d11f217a31c93d048ca9df6f diff --git a/lib/Catalyst/PAR.pm b/lib/Catalyst/PAR.pm index fe336e6..7731d76 100644 --- a/lib/Catalyst/PAR.pm +++ b/lib/Catalyst/PAR.pm @@ -64,6 +64,10 @@ sub package { 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"); @@ -73,6 +77,7 @@ BEGIN { \$ENV{CATALYST_ENGINE} = '$engine' }; use lib 'lib'; require $class; import $class; +$classes EOF $tmp_file->close;