FailIfACCEPT_CONTEXTCalled role

diff --git a/t/lib/TestAppCustomContainer/Model/SingletonLifeCycle.pm b/t/lib/TestAppCustomContainer/Model/SingletonLifeCycle.pm
index 4a6822e..c62afea 100644 (file)
--- a/t/lib/TestAppCustomContainer/Model/SingletonLifeCycle.pm
+++ b/t/lib/TestAppCustomContainer/Model/SingletonLifeCycle.pm
@@ -2,7 +2,7 @@ package TestAppCustomContainer::Model::SingletonLifeCycle;
 use Moose;
 extends 'Catalyst::Model';
 with 'TestAppCustomContainer::Role::HoldsFoo',
-     'TestAppCustomContainer::Role::ACCEPT_CONTEXT';
+     'TestAppCustomContainer::Role::FailIfACCEPT_CONTEXTCalled';
 
 __PACKAGE__->meta->make_immutable;
 

diff --git a/t/lib/TestAppCustomContainer/Role/FailIfACCEPT_CONTEXTCalled.pm b/t/lib/TestAppCustomContainer/Role/FailIfACCEPT_CONTEXTCalled.pm
new file mode 100644 (file)
index 0000000..975d2d1
--- /dev/null
+++ b/t/lib/TestAppCustomContainer/Role/FailIfACCEPT_CONTEXTCalled.pm
@@ -0,0 +1,11 @@
+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;