[catagits/Catalyst-Action-Serialize-Data-Serializer.git] / t / lib / Test / Action / Class / Sub.pm

package Test::Action::Class::Sub;
use Moose;

extends 'Test::Action::Class';

before execute => sub {
   my ($self, $controller, $c, @args) = @_;
   $c->response->header( 'Using-Sub-Action' => 'MOO' );
};

no Moose;

1;
Commit	Line	Data
5213846d	1	package Test::Action::Class::Sub;
	2	use Moose;
	3
	4	extends 'Test::Action::Class';
	5
	6	before execute => sub {
	7	my ($self, $controller, $c, @args) = @_;
	8	$c->response->header( 'Using-Sub-Action' => 'MOO' );
	9	};
	10
	11	no Moose;
	12
	13	1;