X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FModule%2FInstall%2FCatalyst.pm;fp=lib%2FModule%2FInstall%2FCatalyst.pm;h=066d979927badac73ff3ec7632f1476ead0d6427;hp=5c8c8611db827d7185d96f911f61cf9973a3dbde;hb=0427c6c06b2a5a9160538df37cebbace28680321;hpb=07ab88a9cdaac15952e99d29b2948b8d24562876

diff --git a/lib/Module/Install/Catalyst.pm b/lib/Module/Install/Catalyst.pm
index 5c8c861..066d979 100644
--- a/lib/Module/Install/Catalyst.pm
+++ b/lib/Module/Install/Catalyst.pm
@@ -10,6 +10,7 @@ use File::Spec ();
 our @IGNORE =
   qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README
   _build blib lib script t inc/;
+our @CLASSES   = ();
 our $ENGINE    = 'CGI';
 our $CORE      = 0;
 our $MULTIARCH = 0;
@@ -88,6 +89,15 @@ sub catalyst_par_core {
     $CORE = $core;
 }
 
+=head2 catalyst_par_classes(@clases)
+
+=cut
+
+sub catalyst_par_classes {
+    my ( $self, @classes ) = @_;
+    push @CLASSES, @classes;
+}
+
 =head2 catalyst_par_engine($engine)
 
 =cut
@@ -148,6 +158,8 @@ sub _catalyst_par {
     my $version = $Catalyst::VERSION;
     my $class   = $self->name;
 
+    my $classes = '';
+    $classes .= "require $_;\n" for @Catalyst::Module::Install::CLASSES;
     my $tmp_file = IO::File->new(" > $par_pl ");
     print $tmp_file <<"EOF";
 die "$class on Catalyst $version\n" if \$0 !~ /par.pl\.\\w+\$/;
@@ -162,6 +174,7 @@ require Catalyst::Engine::CGI;
 require Catalyst::Controller;
 require Catalyst::Model;
 require Catalyst::View;
+$classes
 EOF
     $tmp_file->close;