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     $c->res->header( 'X-Component-Name-Action', $controller->catalyst_component_name);
  13     $c->res->header( 'X-Component-Instance-Name-Action', ref($controller));
  14     $c->res->header( 'X-Class-In-Action', $self->class);
  15     $self->next::method(@_);
  16 }
  17
  18 1;
  19