Commit | Line | Data |
87e41a18 |
1 | package TestApp::Controller::Moose::MethodModifiers; |
2 | use Moose; |
3 | BEGIN { extends qw/TestApp::Controller::Moose/; } |
4 | |
5 | after get_attribute => sub { |
6 | my ($self, $c) = @_; |
7 | $c->response->header( 'X-Catalyst-Test-After' => 'after called' ); |
8 | }; |
9 | |
10 | 1; |