prevent actions named index from registering as an index dispatchtype if they can...

[catagits/Catalyst-Runtime.git] / t / lib / TestAppIndexActionName / Controller / IndexChained.pm

diff --git a/t/lib/TestAppIndexActionName/Controller/IndexChained.pm b/t/lib/TestAppIndexActionName/Controller/IndexChained.pm
new file mode 100644 (file)
index 0000000..5dfb013
--- /dev/null
+++ b/t/lib/TestAppIndexActionName/Controller/IndexChained.pm
@@ -0,0 +1,12 @@
+package TestAppIndexActionName::Controller::IndexChained;
+
+use base 'Catalyst::Controller';
+
+sub index : Chained('/') PathPart('indexchained') CaptureArgs(0) {}
+
+sub index_endpoint : Chained('index') PathPart('') Args(0) {
+    my ($self, $c) = @_;
+    $c->res->body('index_chained');
+}
+
+1;