Commit | Line | Data |
---|---|---|
7f23827b | 1 | package TestApp::Controller::Action::Auto::Default; |
2 | ||
3 | use strict; | |
4 | use base 'TestApp::Controller::Action'; | |
5 | ||
6 | sub begin : Private { } | |
7 | ||
8 | sub auto : Private { | |
9 | my ( $self, $c ) = @_; | |
10 | $c->stash->{auto_ran}++; | |
11 | return 1; | |
12 | } | |
13 | ||
14 | sub default : Private { | |
15 | my ( $self, $c ) = @_; | |
16 | $c->res->body( sprintf 'default (auto: %d)', $c->stash->{auto_ran} ); | |
17 | } | |
18 | ||
19 | sub end : Private { } | |
20 | ||
21 | 1; | |
22 |