Commit | Line | Data |
---|---|---|
b2d85594 | 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 | ||
9742697f | 12 | sub finalize_config { |
13 | my $c = shift; | |
587d381b | 14 | $c->config( foo => 'bar' ); |
9742697f | 15 | $c->NEXT::finalize_config; |
16 | } | |
17 | ||
18 | sub appconfig : Local { | |
587d381b | 19 | my ( $self, $c, $var ) = @_; |
20 | $c->res->body( $c->config->{ $var } ); | |
9742697f | 21 | } |
22 | ||
b2d85594 | 23 | 1; |