Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Action; |
2 | |
3 | use strict; |
4 | use base 'Catalyst::Base'; |
5 | |
6 | sub begin : Private { |
7 | my ( $self, $c ) = @_; |
fbcc39ad |
8 | $c->res->header( 'X-Test-Class' => ref($self) ); |
dd4e6fd2 |
9 | $c->response->content_type('text/plain; charset=utf-8'); |
10 | } |
11 | |
a83a5398 |
12 | sub index : Private { |
13 | my ( $self, $c ) = @_; |
14 | $c->res->body( 'Action index' ); |
15 | } |
16 | |
dd4e6fd2 |
17 | sub default : Private { |
18 | my ( $self, $c ) = @_; |
19 | $c->res->output("Error - TestApp::Controller::Action\n"); |
20 | } |
21 | |
22 | 1; |