t/lib/TestApp/Controller/Action/Chained/Auto/Detach.pm

   1 package TestApp::Controller::Action::Chained::Auto::Detach;
   2 use warnings;
   3 use strict;
   4
   5 use base qw( Catalyst::Controller );
   6
   7 #
   8 #   For testing behaviour of a detaching auto action in a chain.
   9 #
  10 sub auto    : Private {
  11     my ( $self, $c ) = @_;
  12     $c->detach( '/action/chained/auto/fw3' );
  13     return 1;
  14 }
  15
  16 sub detachend  : Chained('/action/chained/auto/dt1') Args(1) { }
  17
  18 1;