[catagits/Catalyst-Plugin-ConfigLoader.git] / t / lib / TestApp / Controller / Config.pm

package TestApp::Controller::Config;\r
\r
use strict;\r
use warnings;\r
\r
use base qw( Catalyst::Controller );\r
\r
sub index : Private {\r
	my( $self, $c ) = @_;\r
	$c->res->output( $self->{ foo } );\r
}\r
\r
1;
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;