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 835daae..c2c5431 100644 (file)
--- a/t/lib/TestApp/ControllerRole/Parameterized.pm
+++ b/t/lib/TestApp/ControllerRole/Parameterized.pm
@@ -34,4 +34,14 @@ controller_role TestApp::ControllerRole::Parameterized (Str :$message, Str :$bas
             $self->$action($ctx);
         }
     }
+
+    my $upper_part = uc $part;
+
+    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);
+    }
 }