package TestAppDoubleAutoBug;
+use TestLogger;
use Catalyst qw/
Test::Errors
Test::Headers
__PACKAGE__->config( name => 'TestAppDoubleAutoBug', root => '/some/dir' );
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
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} );
-}