t/lib/TestApp3/Controller/Config.pm

   1 package TestApp3::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 sub appconfig : Global {
  14     my ( $self, $c, $var ) = @_;
  15     $c->res->body( $c->config->{ $var } );
  16 }
  17
  18 1;