From: Christian Hansen Date: Sat, 16 Apr 2005 22:32:11 +0000 (+0000) Subject: Fixed loading, Dispatcher before Engine, so it's possible to overload X-Git-Tag: 5.7099_04~1491 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=e8bf1b2d56f1855a8392c67c164f5eb06e28d2f1 Fixed loading, Dispatcher before Engine, so it's possible to overload --- diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 6e70b81..f1aef7e 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -216,19 +216,6 @@ sub import { $caller->log->debug( 'Loaded plugins', $t->draw ) if ( @plugins && $caller->debug ); - # Engine - $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}" - if $ENV{CATALYST_ENGINE}; - - $engine->require; - die qq/Couldn't load engine "$engine", "$@"/ if $@; - { - no strict 'refs'; - push @{"$caller\::ISA"}, $engine; - } - $caller->engine($engine); - $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug; - # Dispatcher $dispatcher = "Catalyst::Dispatcher::$ENV{CATALYST_DISPATCHER}" if $ENV{CATALYST_DISPATCHER}; @@ -242,6 +229,18 @@ sub import { $caller->dispatcher($dispatcher); $caller->log->debug(qq/Loaded dispatcher "$dispatcher"/) if $caller->debug; + # Engine + $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}" + if $ENV{CATALYST_ENGINE}; + + $engine->require; + die qq/Couldn't load engine "$engine", "$@"/ if $@; + { + no strict 'refs'; + push @{"$caller\::ISA"}, $engine; + } + $caller->engine($engine); + $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug; } =item $c->engine