[catagits/Catalyst-Runtime.git] / t / lib / Catalyst / Action / TestAfter.pm

package Catalyst::Action::TestAfter;

use strict;
use warnings;

use base qw/Catalyst::Action/;

sub execute {
    my $self = shift;
    my ( $controller, $c ) = @_;
    $self->next::method( @_ );
    $c->res->header( 'X-Action-After', $c->stash->{after_message} );
}

1;
Commit	Line	Data
734a1e11	1	package Catalyst::Action::TestAfter;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base qw/Catalyst::Action/;
	7
	8	sub execute {
	9	my $self = shift;
	10	my ( $controller, $c ) = @_;
ae29b412	11	$self->next::method( @_ );
734a1e11	12	$c->res->header( 'X-Action-After', $c->stash->{after_message} );
	13	}
	14
	15	1;