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/;
   7
   8 sub execute {
   9     my $self = shift;
  10     my ( $controller, $c ) = @_;
  11     $self->NEXT::execute( @_ );
  12     $c->res->header( 'X-Action-After', $c->stash->{after_message} );
  13 }
  14
  15 1;