X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FRegexp.pm;h=cdb6abc651bcb242e841cc68e6454290cb576c60;hb=cccc8f68ace5d11c3fdcbfc4e353225b3b574255;hp=5413b6c3a768bfaeba86cbba11dacea7e803c693;hpb=dd4e6fd2152eea9f5b0c1f559575ced7684ef257;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Regexp.pm b/t/lib/TestApp/Controller/Action/Regexp.pm index 5413b6c..cdb6abc 100644 --- a/t/lib/TestApp/Controller/Action/Regexp.pm +++ b/t/lib/TestApp/Controller/Action/Regexp.pm @@ -3,12 +3,17 @@ package TestApp::Controller::Action::Regexp; use strict; use base 'TestApp::Controller::Action'; -sub one : Action Regexp('^action/regexp/(\w+)/(\d+)$') { +sub one : Action Regex('^action/regexp/(\w+)/(\d+)$') { my ( $self, $c ) = @_; $c->forward('TestApp::View::Dump::Request'); } -sub two : Action Regex('^action/regexp/(\d+)/(\w+)$') { +sub two : Action LocalRegexp('^(\d+)/(\w+)$') { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Request'); +} + +sub three : Action LocalRegex('^(mandatory)(/optional)?$'){ my ( $self, $c ) = @_; $c->forward('TestApp::View::Dump::Request'); }