Moose compat: lazy-no-default error message

diff --git a/lib/Mouse/Attribute.pm b/lib/Mouse/Attribute.pm
index b5dfb1d..de19f3c 100644 (file)
--- a/lib/Mouse/Attribute.pm
+++ b/lib/Mouse/Attribute.pm
@@ -140,7 +140,7 @@ sub generate_handles {
 sub create {
     my ($self, $class, $name, %args) = @_;
 
-    confess "You must specify a default for lazy attribute '$name'"
+    confess "You cannot have lazy attribute ($name) without specifying a default value for it"
         if $args{lazy} && !exists($args{default}) && !exists($args{builder});
 
     confess "Trigger is not allowed on read-only attribute '$name'"

diff --git a/t/011-lazy.t b/t/011-lazy.t
index 168eaf1..2d87867 100644 (file)
--- a/t/011-lazy.t
+++ b/t/011-lazy.t
@@ -27,7 +27,7 @@ do {
             is   => 'rw',
             lazy => 1,
         );
-    } qr/You must specify a default for lazy attribute 'lazy_no_default'/;
+    } qr/You cannot have lazy attribute \(lazy_no_default\) without specifying a default value for it/;
 };
 
 my $object = Class->new;