dynamic runtime and role 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..edce11a 100644 (file)
--- a/t/lib/TestApp/ControllerRole/Parameterized.pm
+++ b/t/lib/TestApp/ControllerRole/Parameterized.pm
@@ -34,4 +34,10 @@ 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");
+    }
 }