[catagits/Catalyst-Runtime.git] / trunk / t / lib / TestApp / Controller / Moose / MethodModifiers.pm

package TestApp::Controller::Moose::MethodModifiers;
use Moose;
BEGIN { extends qw/TestApp::Controller::Moose/; }

after get_attribute => sub {
    my ($self, $c) = @_;
    $c->response->header( 'X-Catalyst-Test-After' => 'after called' );
};

1;
Commit	Line	Data
e28a6876	1	package TestApp::Controller::Moose::MethodModifiers;
	2	use Moose;
	3	BEGIN { extends qw/TestApp::Controller::Moose/; }
	4
	5	after get_attribute => sub {
	6	my ($self, $c) = @_;
	7	$c->response->header( 'X-Catalyst-Test-After' => 'after called' );
	8	};
	9
	10	1;