Commit | Line | Data |
eff60019 |
1 | package TestApp::ActionRole::Kooh; |
2 | |
3 | use Moose::Role; |
eefc03e1 |
4 | use namespace::clean -except => [ 'meta' ]; |
eff60019 |
5 | |
6 | after execute => sub { |
7 | my ($self, $controller, $c) = @_; |
8 | $c->response->header('X-Affe' => 'Tiger'); |
9 | }; |
10 | |
11 | 1; |