t/lib/TestApp/Controller/Errors.pm

   1 use CatalystX::Declare;
   2
   3 controller TestApp::Controller::Errors {
   4
   5     use TestApp::Types qw( NotFoo NotBar );
   6
   7
   8     action base under '/' as 'errors';
   9
  10
  11     #
  12     #   makes sure the right signature error is caught
  13     #
  14
  15     method signature_error_on_bar (Object $ctx, NotBar $str) {
  16         $ctx->response->body(join ' ', $ctx->response->body, 'BAR');
  17     }
  18
  19     final action signature_error_on_foo (NotFoo $str) under base {
  20         $ctx->response->body('FOO');
  21         $self->signature_error_on_bar($ctx, $str);
  22     }
  23
  24     final action signature_error_on_foo_modify (NotFoo $str) under base {
  25         $ctx->response->body('FOO_MODIFY');
  26         $self->signature_error_on_bar($ctx, $str);
  27     }
  28 }
  29