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; | |
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 | ||
b2d85594 | 23 | 1; |