:Chained and :Chained('.') tests

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Chained / ParentChain.pm

diff --git a/t/lib/TestApp/Controller/Action/Chained/ParentChain.pm b/t/lib/TestApp/Controller/Action/Chained/ParentChain.pm
new file mode 100644 (file)
index 0000000..ec72a38
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Chained/ParentChain.pm
@@ -0,0 +1,13 @@
+package TestApp::Controller::Action::Chained::ParentChain;
+use warnings;
+use strict;
+
+use base qw/ Catalyst::Controller /;
+
+#
+#   Chains to the action /action/chained/parentchain in the
+#   Action::Chained controller.
+#
+sub child :Chained('.') :Args(1) { }
+
+1;