Make Role::with die

[gitmo/Mouse.git] / lib / Mouse / Role.pm

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index 57f319d..0375d0c 100644 (file)
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -41,7 +41,9 @@ do {
             }
         },
         with => sub {
-            return sub { }
+            return sub {
+                confess "Role does not currently support 'with'";
+            }
         },
         requires => sub {
             return sub { }