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;