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

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

extends 'Catalyst::Action';

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

no Moose;

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