t/lib/TestApp/Controller/Config.pm

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