|
sub action_action_one : Global : ActionClass( 'TestBefore' ) {
my ( $self , $c ) = @_ ;
$c ->res->header( 'X-Action' , $c ->stash->{test} );
$c ->forward( 'TestApp::View::Dump::Request' );
}
sub action_action_two : Global : ActionClass( 'TestAfter' ) {
my ( $self , $c ) = @_ ;
$c ->stash->{after_message} = 'awesome' ;
$c ->forward( 'TestApp::View::Dump::Request' );
}
sub action_action_three : Global : ActionClass( '+TestApp::Action::TestBefore' ) {
my ( $self , $c ) = @_ ;
$c ->forward( 'TestApp::View::Dump::Request' );
}
sub action_action_four : Global : MyAction( 'TestMyAction' ) {
my ( $self , $c ) = @_ ;
$c ->forward( 'TestApp::View::Dump::Request' );
}
1;
|