X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FChained%2FAuto%2FDetach.pm;fp=t%2Flib%2FTestApp%2FController%2FAction%2FChained%2FAuto%2FDetach.pm;h=752ced42c216d5e6745543b59851746180526f6f;hb=4a41d5d1ec3187cc41e15767b21c14b2aee31740;hp=0000000000000000000000000000000000000000;hpb=2757db2c7c600c8a0b8e2b4366f38c97804c2844;p=catagits%2FCatalyst-Runtime.git

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
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;