[Catalyst-commits] r13067 - Catalyst-Runtime/5.80/branches/action_roles/t/lib/Catalyst/Action

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-03-22 23:48:04 +0000 (Mon, 22 Mar 2010)
New Revision: 13067

Modified:
   Catalyst-Runtime/5.80/branches/action_roles/t/lib/Catalyst/Action/TestAfter.pm
Log:
Revert r13066 on just the action class to turn it back into a non moose using class (the important bit), also changing it back to c3 rather than modifiers..

Modified: Catalyst-Runtime/5.80/branches/action_roles/t/lib/Catalyst/Action/TestAfter.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/action_roles/t/lib/Catalyst/Action/TestAfter.pm	2010-03-22 12:34:34 UTC (rev 13066)
+++ Catalyst-Runtime/5.80/branches/action_roles/t/lib/Catalyst/Action/TestAfter.pm	2010-03-22 23:48:04 UTC (rev 13067)
@@ -1,12 +1,15 @@
 package Catalyst::Action::TestAfter;
 
-use Moose;
+use strict;
+use warnings;
 
-extends 'Catalyst::Action';
+use base qw/Catalyst::Action/;
 
-after execute => sub {
-    my ($self, $controller, $ctx) = @_;
-    $ctx->res->header( 'X-Action-After', $ctx->stash->{after_message} );
-};
+sub execute {
+    my $self = shift;
+    my ( $controller, $c ) = @_;
+    $self->next::method( @_ );
+    $c->res->header( 'X-Action-After', $c->stash->{after_message} );
+}
 
 1;