t/lib/TestApp/ActionRole/Kooh.pm

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