[Catalyst-commits] r11872 - Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-11-17 16:40:16 +0000 (Tue, 17 Nov 2009)
New Revision: 11872

Modified:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Test.pm
Log:
Catalyst::Test ctx_request modifies prepare instead of dispatch (t/live_component_controller_context_closure.t)

Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Test.pm	2009-11-17 16:26:55 UTC (rev 11871)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Test.pm	2009-11-17 16:40:16 UTC (rev 11872)
@@ -51,8 +51,10 @@
 
         my $meta = Class::MOP::get_metaclass_by_name($class);
         $meta->make_mutable;
-        $meta->add_after_method_modifier( "dispatch", sub {
-            $c = shift;
+        $meta->add_around_method_modifier( "prepare", sub { 
+            my $orig = shift; 
+            my $self = shift; 
+            $c = $self->$orig(@_);
         });
         $meta->make_immutable( replace_constructor => 1 );
         Class::C3::reinitialize(); # Fixes RT#46459, I've failed to write a test for how/why, but it does.