X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=trunk%2Ft%2Flib%2FTestApp%2FController%2FAction%2FAuto.pm;fp=trunk%2Ft%2Flib%2FTestApp%2FController%2FAction%2FAuto.pm;h=b90b4e62ab71962e0969803fa931c101033ca6b2;hb=e28a6876ad3e11890226e5bab6df4b0725e0981e;hp=0000000000000000000000000000000000000000;hpb=21c94d83082b43028cafcfb18659090b13d832fa;p=catagits%2FCatalyst-Runtime.git diff --git a/trunk/t/lib/TestApp/Controller/Action/Auto.pm b/trunk/t/lib/TestApp/Controller/Action/Auto.pm new file mode 100644 index 0000000..b90b4e6 --- /dev/null +++ b/trunk/t/lib/TestApp/Controller/Action/Auto.pm @@ -0,0 +1,21 @@ +package TestApp::Controller::Action::Auto; + +use strict; +use base 'TestApp::Controller::Action'; + +sub auto : Private { + my ( $self, $c ) = @_; + return 1; +} + +sub default : Private { + my ( $self, $c ) = @_; + $c->res->body( 'default' ); +} + +sub one : Local { + my ( $self, $c ) = @_; + $c->res->body( 'one' ); +} + +1;