t/lib/TestApp.pm

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