added ActionClass attribute

[catagits/Catalyst-Runtime.git] / t / lib / Catalyst / Action / TestAfter.pm

diff --git a/t/lib/Catalyst/Action/TestAfter.pm b/t/lib/Catalyst/Action/TestAfter.pm
new file mode 100644 (file)
index 0000000..61fb9d7
--- /dev/null
+++ b/t/lib/Catalyst/Action/TestAfter.pm
@@ -0,0 +1,15 @@
+package Catalyst::Action::TestAfter;
+
+use strict;
+use warnings;
+
+use base qw/Catalyst::Action/;
+
+sub execute {
+    my $self = shift;
+    my ( $controller, $c ) = @_;
+    $self->NEXT::execute( @_ );
+    $c->res->header( 'X-Action-After', $c->stash->{after_message} );
+}
+
+1;