t/lib/TestApp/Controller/SignatureMatching.pm

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