Moose error compat

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 370db8a..225ea59 100644 (file)
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -267,10 +267,10 @@ sub validate_args {
         if ref($args->{default})
         && ref($args->{default}) ne 'CODE';
 
-    confess "You cannot auto-dereference without specifying a type constraint on attribute $name"
+    confess "You cannot auto-dereference without specifying a type constraint on attribute ($name)"
         if $args->{auto_deref} && !exists($args->{isa});
 
-    confess "You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute $name"
+    confess "You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute ($name)"
         if $args->{auto_deref}
         && $args->{isa} ne 'ArrayRef'
         && $args->{isa} ne 'HashRef';

diff --git a/t/026-auto-deref.t b/t/026-auto-deref.t
index b9a4971..d4b1df5 100644 (file)
--- a/t/026-auto-deref.t
+++ b/t/026-auto-deref.t
@@ -25,7 +25,7 @@ do {
             is         => 'rw',
             auto_deref => 1,
         );
-    } qr/You cannot auto-dereference without specifying a type constraint on attribute any/;
+    } qr/You cannot auto-dereference without specifying a type constraint on attribute \(any\)/;
 
     ::throws_ok {
         has scalar => (
@@ -33,7 +33,7 @@ do {
             isa        => 'Value',
             auto_deref => 1,
         );
-    } qr/You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute scalar/;
+    } qr/You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute \(scalar\)/;
 };
 
 my $obj;