Finish the use of overload::StrVal, in verify_type_constraint

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

diff --git a/lib/Mouse/Attribute.pm b/lib/Mouse/Attribute.pm
index a2569d4..6a8c888 100644 (file)
--- a/lib/Mouse/Attribute.pm
+++ b/lib/Mouse/Attribute.pm
@@ -207,8 +207,8 @@ sub verify_type_constraint {
     return 1 if $constraint->($_);
 
     my $name = $self->name;
-    local $_ = "undef" unless defined($_);
-    Carp::confess("Attribute ($name) does not pass the type constraint because: Validation failed for \'$type\' failed with value $_");
+    my $display = defined($_) ? overload::StrVal($_) : 'undef';
+    Carp::confess("Attribute ($name) does not pass the type constraint because: Validation failed for \'$type\' failed with value $display");
 }
 
 sub _canonicalize_handles {