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