t/lib/TestApp/Action/TestBefore.pm

   1 package TestApp::Action::TestBefore;
   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, $test ) = @_;
  11     $c->res->header( 'X-TestAppActionTestBefore', $test );
  12     $self->NEXT::execute( @_ );
  13 }
  14
  15 1;