Make Role::with die

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index 3c7aff1..78e01a4 100644 (file)
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -53,7 +53,6 @@ sub apply {
         my @spec = $self->get_attribute($name);
         Mouse::Meta::Attribute->create($pkg, $name, @spec);
     }
-
 }
 
 1;

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 { }

diff --git a/t/400-define-role.t b/t/400-define-role.t
index 53c77cf..4b27be5 100644 (file)
--- a/t/400-define-role.t
+++ b/t/400-define-role.t
@@ -55,14 +55,14 @@ do {
     no Mouse::Role;
 };
 
-lives_ok {
+throws_ok {
     package Role;
     use Mouse::Role;
 
     with 'Other::Role';
 
     no Mouse::Role;
-};
+} qr/Role does not currently support 'with'/;
 
 lives_ok {
     package Role;