X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FPath.pm;fp=t%2Flib%2FTestApp%2FController%2FAction%2FPath.pm;h=1c365378d5768ba2e74dbb8cf98ab6c14b9faf30;hb=66741f94ac93b7ba0989db3556d0e3fe36c1be87;hp=0000000000000000000000000000000000000000;hpb=587b0f5882d4f5e128ae082758da37b065a3efde;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Path.pm b/t/lib/TestApp/Controller/Action/Path.pm new file mode 100644 index 0000000..1c36537 --- /dev/null +++ b/t/lib/TestApp/Controller/Action/Path.pm @@ -0,0 +1,31 @@ +package TestApp::Controller::Action::Path; + +use strict; +use base 'TestApp::Controller::Action'; + +sub one : Action Path("a path with spaces") { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub two : Action Path("åäö") { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub three :Path { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub four : Path( 'spaces_near_parens_singleq' ) { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub five : Path( "spaces_near_parens_doubleq" ) { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +1;