X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppDoubleAutoBug.pm;h=1044a307152726171e4a04d259f8234c8af5686d;hp=5c72461b7ca59e00c89aa6416eb866c809f5b3c0;hb=82010ea176741c7a4f2baf3f6f27377b1d9f6b15;hpb=7f23827ba42e87b4bf1f52d37534f3229a7f594d diff --git a/t/lib/TestAppDoubleAutoBug.pm b/t/lib/TestAppDoubleAutoBug.pm index 5c72461..1044a30 100644 --- a/t/lib/TestAppDoubleAutoBug.pm +++ b/t/lib/TestAppDoubleAutoBug.pm @@ -3,6 +3,7 @@ use warnings; package TestAppDoubleAutoBug; +use TestLogger; use Catalyst qw/ Test::Errors Test::Headers @@ -13,12 +14,14 @@ our $VERSION = '0.01'; __PACKAGE__->config( name => 'TestAppDoubleAutoBug', root => '/some/dir' ); +__PACKAGE__->log(TestLogger->new); + __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 +48,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} ); -}