Adjust the Role::extends error message to match Moose's ;)
Shawn M Moore [Tue, 17 Jun 2008 02:37:03 +0000 (02:37 +0000)]
lib/Mouse/Role.pm
t/400-define-role.t

index f5da880..ddd435a 100644 (file)
@@ -12,7 +12,7 @@ do {
     my %exports = (
         extends => sub {
             return sub {
-                confess "Mouse::Role does not currently support 'extends'";
+                confess "Role does not currently support 'extends'";
             }
         },
     );
index 4c27de0..7ece4ec 100644 (file)
@@ -16,5 +16,7 @@ throws_ok {
     use Mouse::Role;
 
     extends 'Role::Parent';
-} qr/Mouse::Role does not currently support 'extends'/;
+
+    no Mouse::Role;
+} qr/Role does not currently support 'extends'/;