Look up the method just once.

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 52398b8..329a76f 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1900,10 +1900,9 @@ sub prepare {
         $c->res->headers->header( 'X-Catalyst' => $Catalyst::VERSION );
     }
 
-    #XXX reuse coderef from can
     # Allow engine to direct the prepare flow (for POE)
-    if ( $c->engine->can('prepare') ) {
-        $c->engine->prepare( $c, @arguments );
+    if ( my $prepare = $c->engine->can('prepare') ) {
+        $c->engine->$prepare( $c, @arguments );
     }
     else {
         $c->prepare_request(@arguments);