preparations for new MXDs MXRP usage, signature api fix

[catagits/CatalystX-Declare.git] / t / lib / TestApp / ControllerRole / Parameterized.pm

diff --git a/t/lib/TestApp/ControllerRole/Parameterized.pm b/t/lib/TestApp/ControllerRole/Parameterized.pm
new file mode 100644 (file)
index 0000000..9e047db
--- /dev/null
+++ b/t/lib/TestApp/ControllerRole/Parameterized.pm
@@ -0,0 +1,11 @@
+use CatalystX::Declare;
+
+controller_role TestApp::ControllerRole::Parameterized (Str :$message) {
+
+    method get_message { $message }
+
+    final action greet under base {
+        no warnings 'uninitialized'; # remove if TODO is fixed
+        $ctx->response->body( join ':', $self->get_message, $message );
+    }
+}