Commit | Line | Data |
---|---|---|
802a7626 | 1 | package TestApp4::Controller::Config; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use base qw( Catalyst::Controller ); | |
7 | ||
8 | sub index : Private { | |
9 | my ( $self, $c ) = @_; | |
10 | $c->res->output( $self->{ foo } ); | |
11 | } | |
12 | ||
13 | sub appconfig : Global { | |
14 | my ( $self, $c, $var ) = @_; | |
15 | $c->res->body( $c->config->{ $var } ); | |
16 | } | |
17 | ||
18 | 1; |