Changeset 25089 for lang

Timestamp:

11/27/08 14:47:10 (4 years ago)

Author:

yappo

Message:

lazy_build support

Location:

lang/perl/Shika/trunk

Files:

• lib/Shika.pm (modified) (3 diffs)
• t/010_core/08_lazy_build.t (added)

lang/perl/Shika/trunk/lib/Shika.pm

@@ -35 +35 @@
             next unless exists $has->{default} && $has->{default};
             next if     exists $has->{lazy} && $has->{lazy};
+            next if     exists $has->{lazy_build} && $has->{lazy_build};
             my $code = $has->{default};
             $attr{$name} = ref($code) eq 'CODE' ? $code->() : $code;
@@ -65 +66 @@
     if (exists $attr{lazy} && $attr{lazy}) {
         _has_lazy_install($pkg, $n, %attr);
+    } elsif (exists $attr{lazy_build} && $attr{lazy_build}) {
+        _has_lazy_build_install($pkg, $n, %attr);
     } else {
         _has_install($pkg, $n, %attr);
@@ -97 +100 @@
 }
 
+sub _has_lazy_build_install {
+    my($pkg, $n) = @_;
+    no strict 'refs';
+    *{"$pkg\::$n"} = sub {
+        if (@_ == 1) {
+            unless (exists $_[0]->{$n}) {
+                die "$pkg does not support builder method '_build_$n' for attribute '$n'"
+                    unless my $code = $pkg->can("_build_$n");
+                return $_[0]->{$n} = $code->();
+            }
+            return $_[0]->{$n};
+        }
+        return $_[0]->{$n} = $_[1] if @_ == 2;
+        shift->{$n} = \@_;
+    };
+}
+
 sub _extends {
     my $pkg = caller(0);