t/lib/TestApp/Controller/Moose/MethodModifiers.pm

   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;