some minor fixes

[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
index edce11a..c2c5431 100644 (file)
--- a/t/lib/TestApp/ControllerRole/Parameterized.pm
+++ b/t/lib/TestApp/ControllerRole/Parameterized.pm
@@ -40,4 +40,8 @@ controller_role TestApp::ControllerRole::Parameterized (Str :$message, Str :$bas
     final action upper as $upper_part under $base {
         $ctx->response->body("upper as $upper_part under $base");
     }
+
+    final action short <- $base (Str $x) {
+        $ctx->response->body('short ' . $x);
+    }
 }