X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=e622d7fc3bae5807a608fe559d9a5c2b40d3ff03;hb=70cb38f059701a0cc822a90871836d5bc4e991e2;hp=f0638c1439ce7f86044f24e44b4af893d5736dbc;hpb=b0b7c5e0d9fca0c420b39f0a6bb5ff47400c1a14;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index f0638c1..e622d7f 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -5,7 +5,7 @@ use base 'Class::Data::Inheritable';
 use UNIVERSAL::require;
 use Catalyst::Log;
 
-__PACKAGE__->mk_classdata($_) for qw/_config log/;
+__PACKAGE__->mk_classdata($_) for qw/_config engine log/;
 
 our $VERSION = '4.33';
 our @ISA;
@@ -194,9 +194,14 @@ sub import {
         no strict 'refs';
         push @{"$caller\::ISA"}, $engine;
     }
+    $caller->engine($engine);
     $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
 }
 
+=item $c->engine
+
+Contains the engine class.
+
 =item $c->log
 
 Contains the logging object.  Unless it is already set Catalyst sets this up with a