[catagits/Catalyst-Runtime.git] / t / lib / TestAppCustomContainer / Role / ACCEPT_CONTEXT.pm

package TestAppCustomContainer::Role::ACCEPT_CONTEXT;
use Moose::Role;
use namespace::autoclean;

has accept_context_called => (
    traits  => ['Counter'],
    isa     => 'Int',
    is      => 'ro',
    default => 0,
    handles => {
        inc_accept_context_called => 'inc',
    },
);

sub ACCEPT_CONTEXT {
    my ( $self, $ctx, @args ) = @_;

    $self->inc_accept_context_called;

    return $self;
}

1;
Commit	Line	Data
b463fcad	1	package TestAppCustomContainer::Role::ACCEPT_CONTEXT;
	2	use Moose::Role;
	3	use namespace::autoclean;
	4
	5	has accept_context_called => (
	6	traits => ['Counter'],
	7	isa => 'Int',
	8	is => 'ro',
	9	default => 0,
	10	handles => {
	11	inc_accept_context_called => 'inc',
	12	},
	13	);
	14
	15	sub ACCEPT_CONTEXT {
	16	my ( $self, $ctx, @args ) = @_;
	17
	18	$self->inc_accept_context_called;
	19
	20	return $self;
	21	}
	22
	23	1;