t/lib/TestApp/Controller/Config.pm

   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;