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

package TestApp::Action::TestMyAction;

use strict;
use warnings;

use base qw/Catalyst::Action/;

sub execute {
    my $self = shift;
    my ( $controller, $c, $test ) = @_;
    $c->res->header( 'X-TestAppActionTestMyAction', 'MyAction works' );
    $self->next::method(@_);
}

1;
Commit	Line	Data
e7c6f3d1	1	package TestApp::Action::TestMyAction;
	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-TestAppActionTestMyAction', 'MyAction works' );
dbb2d5cd	12	$self->next::method(@_);
e7c6f3d1	13	}
	14
	15	1;
	16