t/lib/Catalyst/Action/TestAfter.pm

   1 package Catalyst::Action::TestAfter;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/Catalyst::Action/; # N.B. Keep as a non-moose class, this also
   7                                # tests metaclass initialization works as expected
   8
   9 sub execute {
  10     my $self = shift;
  11     my ( $controller, $c ) = @_;
  12     $self->next::method( @_ );
  13     $c->res->header( 'X-Action-After', $c->stash->{after_message} );
  14 }
  15
  16 1;