t/lib/TestAppCustomContainer/Role/FailIfACCEPT_CONTEXTCalled.pm

   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;