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

package TestApp::Action::TestBefore;

use strict;
use warnings;

use base qw/Catalyst::Action/;

sub execute {
    my $self = shift;
    my ( $controller, $c, $test ) = @_;
    $c->res->header( 'X-TestAppActionTestBefore', $test );
    $self->NEXT::execute( @_ );
}

1;
Commit	Line	Data
734a1e11	1	package TestApp::Action::TestBefore;
	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, $test ) = @_;
	11	$c->res->header( 'X-TestAppActionTestBefore', $test );
	12	$self->NEXT::execute( @_ );
	13	}
	14
	15	1;