t/lib/TestApp/Action/TestMyAction.pm

   1 package TestApp::Action::TestMyAction;
   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-TestAppActionTestMyAction', 'MyAction works' );
  12     $self->NEXT::execute(@_);
  13 }
  14
  15 1;
  16