X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FChained%2FFoo.pm;fp=t%2Flib%2FTestApp%2FController%2FAction%2FChained%2FFoo.pm;h=840a61925071d62cbfe1a86489cb011915931d63;hb=81e75875ca7cea9004783a0c142040081da630d8;hp=7e3ff4b1e91b8315387e923bae455ad6c13615b6;hpb=9183745a1266d667b117db56915c25ce4d78ae78;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/TestApp/Controller/Action/Chained/Foo.pm b/t/lib/TestApp/Controller/Action/Chained/Foo.pm
index 7e3ff4b..840a619 100644
--- a/t/lib/TestApp/Controller/Action/Chained/Foo.pm
+++ b/t/lib/TestApp/Controller/Action/Chained/Foo.pm
@@ -25,4 +25,15 @@ sub pcp2 :Chained('/action/chained/pcp1') :CaptureArgs(1) { }
 #
 sub cross2 :PathPart('end') :Chained('/action/chained/bar/cross1') :Args(1) { }
 
+#
+#   Create a uri to the root index
+#
+sub to_root : Chained('/') PathPart('action/chained/to_root') {
+    my ( $self, $c ) = @_;
+    my $uri = $c->uri_for(
+        $c->controller('Root')->action_for('chain_root_index') );
+    $c->res->body( "URI:$uri" );
+    $c->stash->{no_end}++;
+}
+
 1;