Moose compat: required error message tweak

diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm
index e870e78..64f2ce4 100644 (file)
--- a/lib/Mouse/Object.pm
+++ b/lib/Mouse/Object.pm
@@ -38,7 +38,7 @@ sub new {
             }
             else {
                 if ($attribute->is_required) {
-                    confess "Attribute '".$attribute->name."' is required";
+                    confess "Attribute (".$attribute->name.") is required";
                 }
             }
         }

diff --git a/t/010-required.t b/t/010-required.t
index 3a8be4c..161717c 100644 (file)
--- a/t/010-required.t
+++ b/t/010-required.t
@@ -30,7 +30,7 @@ do {
     );
 };
 
-throws_ok { Class->new } qr/Attribute 'foo' is required/, "required attribute is required";
+throws_ok { Class->new } qr/Attribute \(foo\) is required/, "required attribute is required";
 lives_ok { Class->new(foo => 5) } "foo is the only required but unfulfilled attribute";
 lives_ok { Class->new(foo => 1, bar => 1, baz => 1, quux => 1) } "all attributes specified";