[catagits/Catalyst-Runtime.git] / t / lib / TestApp / ActionRole / Boo.pm

package TestApp::ActionRole::Boo;

use Moose::Role;

has boo => (
    is       => 'ro',
    required => 1,
);

around execute => sub {
    my ($orig, $self, $controller, $ctx, @rest) = @_;
    $ctx->stash(action_boo => $self->boo);
    return $self->$orig($controller, $ctx, @rest);
};

1;
Commit	Line	Data
eff60019	1	package TestApp::ActionRole::Boo;
	2
	3	use Moose::Role;
	4
	5	has boo => (
	6	is => 'ro',
	7	required => 1,
	8	);
	9
	10	around execute => sub {
	11	my ($orig, $self, $controller, $ctx, @rest) = @_;
	12	$ctx->stash(action_boo => $self->boo);
	13	return $self->$orig($controller, $ctx, @rest);
	14	};
	15
	16	1;