1 use CatalystX::Declare;
3 controller_role TestApp::ControllerRole::Parameterized (Str :$message, Str :$base, Str :$part, Str :$action) {
5 method get_message { $message }
7 final action greet under base {
8 $ctx->response->body( join ':', $self->get_message, $message );
11 final action dynabase under "$base" {
12 $ctx->response->body( "under $base" );
15 final action dynapart under "$base" as $part {
16 $ctx->response->body( "under $base as $part" );
22 $ctx->response->body( "scoped under $base" );
25 final action complex as "$part/deep" {
26 $ctx->response->body( "$part/deep under $base" );
29 final action $action {
30 $ctx->response->body( "$action action" );
33 final action actionalias {
38 my $upper_part = uc $part;
40 final action upper as $upper_part under $base {
41 $ctx->response->body("upper as $upper_part under $base");
44 final action short <- $base (Str $x) {
45 $ctx->response->body('short ' . $x);