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

package TestAppCustomContainer::Role::FailIfACCEPT_CONTEXTCalled;
use Moose::Role;
use Test::More;

sub ACCEPT_CONTEXT {}
before ACCEPT_CONTEXT => sub {
    my ($self, $ctx, @args) = @_;
    fail("ACCEPT_CONTEXT called for $self");
};

1;
Commit	Line	Data
66dc5ce5	1	package TestAppCustomContainer::Role::FailIfACCEPT_CONTEXTCalled;
	2	use Moose::Role;
	3	use Test::More;
	4
	5	sub ACCEPT_CONTEXT {}
	6	before ACCEPT_CONTEXT => sub {
	7	my ($self, $ctx, @args) = @_;
	8	fail("ACCEPT_CONTEXT called for $self");
	9	};
	10
	11	1;