implement lazy_build

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index ff1a3ff..733c129 100644 (file)
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -12,8 +12,14 @@ sub new {
 
     $args{init_arg} = $args{name}
         unless exists $args{init_arg};
+
     $args{is} ||= '';
 
+    if ( $args{lazy_build} ) {
+        $args{lazy} = 1;
+        $args{builder} ||= "_build_$args{name}";
+    }
+
     bless \%args, $class;
 }
 

diff --git a/t/023-builder.t b/t/023-builder.t
index 25b7fa8..a72f900 100644 (file)
--- a/t/023-builder.t
+++ b/t/023-builder.t
@@ -25,12 +25,11 @@ do {
     };
 
     has age => (
-        is        => 'ro',
-        isa       => 'Int',
-        builder   => '_build_age',
-        lazy      => 1,
-        clearer   => 'clear_age',
-        predicate => 'has_age',
+        is         => 'ro',
+        isa        => 'Int',
+        lazy_build => 1,
+        clearer    => 'clear_age',
+        predicate  => 'has_age',
     );
 
     sub default_age { 20 }