Will flatten the capture args in uri_for

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

diff --git a/t/lib/TestApp/Controller/Action/Chained/Auto/Detach.pm b/t/lib/TestApp/Controller/Action/Chained/Auto/Detach.pm
new file mode 100644 (file)
index 0000000..752ced4
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Chained/Auto/Detach.pm
@@ -0,0 +1,18 @@
+package TestApp::Controller::Action::Chained::Auto::Detach;
+use warnings;
+use strict;
+
+use base qw( Catalyst::Controller );
+
+#
+#   For testing behaviour of a detaching auto action in a chain.
+#
+sub auto    : Private {
+    my ( $self, $c ) = @_;
+    $c->detach( '/action/chained/auto/fw3' );
+    return 1;
+}
+
+sub detachend  : Chained('/action/chained/auto/dt1') Args(1) { }
+
+1;