1 package TestApp::Controller::Moose;
5 use namespace::clean -except => 'meta';
7 BEGIN { extends qw/Catalyst::Controller/; }
8 use MooseX::MethodAttributes; # FIXME - You need to say this if you have
9 # modifiers so that you get the correct
10 # method metaclass, why does the modifier
11 # on MODIFY_CODE_ATTRIBUTES not work.
18 sub get_attribute : Local {
20 $c->response->body($self->attribute);
23 sub with_local_modifier : Local {
25 $c->forward('get_attribute');
28 before with_local_modifier => sub {
30 $c->response->header( 'X-Catalyst-Test-Before' => 'before called' );