t/lib/TestApp.pm

   1 package TestApp;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Catalyst qw/ConfigLoader/;
   7
   8 our $VERSION = '0.01';
   9
  10 __PACKAGE__->setup;
  11
  12 sub finalize_config {
  13     my $c = shift;
  14     $c->config( foo => 'bar' );
  15     $c->NEXT::finalize_config;
  16 }
  17
  18 sub appconfig : Local {
  19     my ( $self, $c, $var ) = @_;
  20     $c->res->body( $c->config->{ $var } );
  21 }
  22
  23 1;