Commit | Line | Data |
b2d85594 |
1 | package TestApp::Controller::Config;\r |
2 | \r |
3 | use strict;\r |
4 | use warnings;\r |
5 | \r |
6 | use base qw( Catalyst::Controller );\r |
7 | \r |
8 | sub index : Private {\r |
9 | my( $self, $c ) = @_;\r |
10 | $c->res->output( $self->{ foo } );\r |
11 | }\r |
12 | \r |
13 | 1; |