X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FMoose.pm;fp=t%2Flib%2FTestApp%2FController%2FMoose.pm;h=0000000000000000000000000000000000000000;hb=f436bc1bece2bcc2a04138068e5c22e70d9d6d35;hp=705b2bd9bccf892650c701d36091d7344370376c;hpb=e28a6876ad3e11890226e5bab6df4b0725e0981e;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Moose.pm b/t/lib/TestApp/Controller/Moose.pm deleted file mode 100644 index 705b2bd..0000000 --- a/t/lib/TestApp/Controller/Moose.pm +++ /dev/null @@ -1,33 +0,0 @@ -package TestApp::Controller::Moose; - -use Moose; - -use namespace::clean -except => 'meta'; - -BEGIN { extends qw/Catalyst::Controller/; } -use MooseX::MethodAttributes; # FIXME - You need to say this if you have - # modifiers so that you get the correct - # method metaclass, why does the modifier - # on MODIFY_CODE_ATTRIBUTES not work. - -has attribute => ( - is => 'ro', - default => 42, -); - -sub get_attribute : Local { - my ($self, $c) = @_; - $c->response->body($self->attribute); -} - -sub with_local_modifier : Local { - my ($self, $c) = @_; - $c->forward('get_attribute'); -} - -before with_local_modifier => sub { - my ($self, $c) = @_; - $c->response->header( 'X-Catalyst-Test-Before' => 'before called' ); -}; - -1;