[catagits/Catalyst-Action-REST.git] / t / lib / Test / Action / Class.pm

package Test::Action::Class;
use strict;
use warnings;

use Moose;
BEGIN { 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;
	2	use strict;
	3	use warnings;
	4
	5	use Moose;
	6	BEGIN { extends 'Catalyst::Action' };
	7
	8	before execute => sub {
	9	my ($self, $controller, $c, @args) = @_;
	10	$c->response->header( 'Using-Action' => 'STATION' );
	11	};
	12
	13	no Moose;
	14
	15	1;