Commit | Line | Data |
---|---|---|
2664a81b | 1 | package TestAppWithMeta::Controller::Root; |
99e429e8 | 2 | use base qw/Catalyst::Controller/; # N.B. Do not convert to Moose, so we do not |
3 | # have a metaclass instance! | |
2664a81b | 4 | |
5 | __PACKAGE__->config( namespace => '' ); | |
6 | ||
7 | no warnings 'redefine'; | |
8 | sub meta { 'fnar' } | |
9 | use warnings 'redefine'; | |
10 | ||
11 | sub default : Private { | |
12 | my ($self, $c) = @_; | |
13 | $c->res->body($self->meta); | |
14 | } | |
15 | ||
16 | 1; | |
17 |