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