X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FMoose.pm;h=705b2bd9bccf892650c701d36091d7344370376c;hb=11e7af55dda3f3acd9ab3b484b54180f76b253df;hp=c03829a762655f0bbc106db9ae6dcb5b9e5194e9;hpb=cf37d21a258273df337d7c3d9214b286713ec9ca;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Moose.pm b/t/lib/TestApp/Controller/Moose.pm index c03829a..705b2bd 100644 --- a/t/lib/TestApp/Controller/Moose.pm +++ b/t/lib/TestApp/Controller/Moose.pm @@ -20,7 +20,12 @@ sub get_attribute : Local { $c->response->body($self->attribute); } -before get_attribute => sub { +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' ); };