t/lib/TestApp/TestRole.pm

   1 use CatalystX::Declare;
   2
   3 controller_role TestApp::TestRole {
   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 }