X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FPath.pm;h=3a935255882f3e15305fc004263fdb2fe7edc854;hb=6ebb781872628a74ac0916b163bcf8411b232399;hp=2c19f0e17069b2ec0ca062e47d5c56c576ce7fca;hpb=dd4e6fd2152eea9f5b0c1f559575ced7684ef257;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Path.pm b/t/lib/TestApp/Controller/Action/Path.pm index 2c19f0e..3a93525 100644 --- a/t/lib/TestApp/Controller/Action/Path.pm +++ b/t/lib/TestApp/Controller/Action/Path.pm @@ -3,12 +3,34 @@ package TestApp::Controller::Action::Path; use strict; use base 'TestApp::Controller::Action'; -sub one : Action Path("a path with spaces") { +__PACKAGE__->config( + actions => { + 'one' => { 'Path' => [ 'a path with spaces' ] }, + 'two' => { 'Path' => "åäö" }, + }, +); + +sub one : Action Path("this_will_be_overriden") { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub two : Action { + 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 two : Action Path("åäö") { +sub five : Path( "spaces_near_parens_doubleq" ) { my ( $self, $c ) = @_; $c->forward('TestApp::View::Dump::Request'); }