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; |