t/lib/TestApp/ControllerRole/Parameterized.pm

   1 use CatalystX::Declare;
   2
   3 controller_role TestApp::ControllerRole::Parameterized (Str :$message) {
   4
   5     method get_message { $message }
   6
   7     final action greet under base {
   8         $ctx->response->body( join ':', $self->get_message, $message );
   9     }
  10 }