Commit | Line | Data |
---|---|---|
856ac9a7 | 1 | use CatalystX::Declare; |
2 | ||
e2dc918e | 3 | component_role TestApp::TestRole { |
856ac9a7 | 4 | |
5 | method something_from_the_role { 23 } | |
6 | ||
7 | final action action_from_ctrl_role under base { | |
8 | $ctx->response->body($ctx->action->reverse); | |
9 | } | |
10 | ||
11 | after modifier_target (Object $ctx) { | |
12 | $ctx->response->body(join ' ', $ctx->response->body, 'modified'); | |
13 | } | |
14 | ||
15 | around surrounded_target (Object $ctx) { | |
16 | $ctx->response->body('surrounded'); | |
17 | $self->$orig($ctx); | |
18 | } | |
19 | } |