Commit | Line | Data |
---|---|---|
ed4a2203 | 1 | use CatalystX::Declare; |
2 | ||
3 | controller TestApp::Controller::SignatureMatching { | |
4 | ||
bd1badfa | 5 | method mark (Catalyst $ctx) { |
6 | $ctx->response->body( $ctx->action->reverse ); | |
7 | } | |
8 | ||
9 | ||
ed4a2203 | 10 | action base as 'sigmatch' under '/'; |
11 | ||
12 | under base { | |
13 | ||
14 | final action int (Int $x) | |
bd1badfa | 15 | as test { $self->mark($ctx) } |
ed4a2203 | 16 | |
17 | final action str (Str $x where { /^[a-z]+$/ }) | |
bd1badfa | 18 | as test { $self->mark($ctx) } |
ed4a2203 | 19 | |
20 | final action rest (@) | |
bd1badfa | 21 | as '' { $self->mark($ctx) } |
ed4a2203 | 22 | } |
23 | } |