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

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;
Commit	Line	Data
2349aeea	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;