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

package Catalyst::Action::TestAfter;

use strict;
use warnings;

use base qw/Catalyst::Action/; # N.B. Keep as a non-moose class, this also
                               # tests metaclass initialization works as expected

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
eff60019	6	use base qw/Catalyst::Action/; # N.B. Keep as a non-moose class, this also
eff60019	7	# tests metaclass initialization works as expected
734a1e11	8
	9	sub execute {
	10	my $self = shift;
	11	my ( $controller, $c ) = @_;
dbb2d5cd	12	$self->next::method( @_ );
734a1e11	13	$c->res->header( 'X-Action-After', $c->stash->{after_message} );
	14	}
	15
	16	1;