projects
/
catagits/CatalystX-Declare.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
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);
+ }
}