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;