[Catalyst-commits] r11865 - Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/lib/TestApp

zby at dev.catalyst.perl.org zby at dev.catalyst.perl.org
Tue Nov 17 14:54:08 GMT 2009


Author: zby
Date: 2009-11-17 14:54:07 +0000 (Tue, 17 Nov 2009)
New Revision: 11865

Modified:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/lib/TestApp/Context.pm
Log:
now prepare_action is in Context - fixing test libs (for example for test t/aggregate/live_component_controller_action_action.t)

Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/lib/TestApp/Context.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/lib/TestApp/Context.pm	2009-11-17 14:45:13 UTC (rev 11864)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/lib/TestApp/Context.pm	2009-11-17 14:54:07 UTC (rev 11865)
@@ -51,6 +51,10 @@
     return $c->SUPER::execute(@_);
 }
 
+after prepare_action => sub{
+    my $c = shift;
+    $c->res->header( 'X-Catalyst-Action' => $c->req->action );
+};
 
 1;
 




More information about the Catalyst-commits mailing list