Commit | Line | Data |
---|---|---|
1754e3e7 | 1 | use CatalystX::Declare; |
2 | ||
3 | controller TestApp::Controller::DynamicFinal::Bar { | |
4 | ||
5 | with 'TestApp::ControllerRole::DynamicFinal' => { | |
6 | is_final => 0, | |
7 | base => 'base', | |
8 | body => 'bar', | |
9 | counters => [qw( y z )], | |
10 | }; | |
11 | ||
12 | action base as df_bar under '/'; | |
13 | ||
14 | final action wrapped under msg { | |
15 | $ctx->response->body(sprintf 'wrapped[%s]', $ctx->response->body); | |
16 | } | |
17 | } | |
18 |