X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppDoubleAutoBug.pm;h=524ed8ba3de67203877b0fc129a6890cdd0b7ef7;hb=9c1fc6d6a8c4701fa842fa5229c99d103aee1afa;hp=5c72461b7ca59e00c89aa6416eb866c809f5b3c0;hpb=7f23827ba42e87b4bf1f52d37534f3229a7f594d;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestAppDoubleAutoBug.pm b/t/lib/TestAppDoubleAutoBug.pm index 5c72461..524ed8b 100644 --- a/t/lib/TestAppDoubleAutoBug.pm +++ b/t/lib/TestAppDoubleAutoBug.pm @@ -18,7 +18,7 @@ __PACKAGE__->setup; sub execute { my $c = shift; my $class = ref( $c->component( $_[0] ) ) || $_[0]; - my $action = "$_[1]"; + my $action = $_[1]->reverse(); my $method; @@ -45,15 +45,5 @@ sub execute { return $c->SUPER::execute(@_); } +1; - -sub auto : Private { - my ( $self, $c ) = @_; - ++$c->stash->{auto_count}; - return 1; -} - -sub default : Private { - my ( $self, $c ) = @_; - $c->res->body( sprintf 'default, auto=%d', $c->stash->{auto_count} ); -}