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         no warnings 'uninitialized'; # remove if TODO is fixed
   9         $ctx->response->body( join ':', $self->get_message, $message );
  10     }
  11 }