added cgi_chain_root

[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBinChainRoot / Controller / CGIHandler.pm

diff --git a/t/lib/TestCGIBinChainRoot/Controller/CGIHandler.pm b/t/lib/TestCGIBinChainRoot/Controller/CGIHandler.pm
new file mode 100644 (file)
index 0000000..4867e5f
--- /dev/null
+++ b/t/lib/TestCGIBinChainRoot/Controller/CGIHandler.pm
@@ -0,0 +1,11 @@
+package TestCGIBinChainRoot::Controller::CGIHandler;
+
+use parent 'Catalyst::Controller::CGIBin';
+
+sub chain_root : Chained('/') PathPart('cgi') CaptureArgs(0) {
+    my ($self, $c) = @_;
+
+    $c->req->body_parameters->{from_chain} = 'from_chain';
+}
+
+1;