X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FControllerRole%2FParameterized.pm;h=edce11a16e4f8923043d59989d25df6f780dc899;hb=1754e3e7e4a3c192c4ea955e02805e6371b39766;hp=835daae0f42cf4d6d696a81dea56f73e4f2757b9;hpb=4960c7ecd1c5a2d89aae5e0c55f0f54cf110b4f0;p=catagits%2FCatalystX-Declare.git

diff --git a/t/lib/TestApp/ControllerRole/Parameterized.pm b/t/lib/TestApp/ControllerRole/Parameterized.pm
index 835daae..edce11a 100644
--- 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");
+    }
 }