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' ); |
c098c4a2 | 15 | $c->next::method( @_ ); |
9742697f | 16 | } |
17 | ||
b2d85594 | 18 | 1; |