Commit | Line | Data |
c2a8165b |
1 | use CatalystX::Declare; |
2 | |
8d66ec34 |
3 | controller_role TestApp::ControllerRole::Parameterized (Str :$message, Str :$base, Str :$part) { |
c2a8165b |
4 | |
5 | method get_message { $message } |
6 | |
7 | final action greet under base { |
c2a8165b |
8 | $ctx->response->body( join ':', $self->get_message, $message ); |
9 | } |
8d66ec34 |
10 | |
11 | final action dynabase under "$base" { |
12 | $ctx->response->body( "under $base" ); |
13 | } |
14 | |
15 | final action dynapart under "$base" as $part { |
16 | $ctx->response->body( "under $base as $part" ); |
17 | } |
18 | |
19 | under $base { |
20 | |
21 | final action scoped { |
22 | $ctx->response->body( "scoped under $base" ); |
23 | } |
3601c77d |
24 | |
25 | final action complex as "$part/deep" { |
26 | $ctx->response->body( "$part/deep under $base" ); |
27 | } |
8d66ec34 |
28 | } |
c2a8165b |
29 | } |