Commit | Line | Data |
392e5076 |
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 | |