Allow passing initial attribute values to .new

sorear · Dec 28, 2010 · c2857c1 · c2857c1
1 parent dc2fc3b
commit c2857c1
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 3 deletions.
diff --git a/lib/Kernel.cs b/lib/Kernel.cs
@@ -1708,9 +1708,16 @@ public class Kernel {
 
             for (int i = mro.Length - 1; i >= 0; i--) {
                 foreach (DynMetaObject.AttrInfo a in mro[i].local_attr) {
-                    IP6 val = a.init == null ? AnyP :
-                        RunInferior(a.init.Invoke(GetInferiorRoot(),
-                                Variable.None, null)).Fetch();
+                    IP6 val;
+                    Variable vx;
+                    if (a.publ && args.TryGetValue(a.name, out vx)) {
+                        val = vx.Fetch();
+                    } else if (a.init == null) {
+                        val = AnyP;
+                    } else {
+                        val = RunInferior(a.init.Invoke(GetInferiorRoot(),
+                                    Variable.None, null)).Fetch();
+                    }
                     n.SetSlot(a.name, NewRWScalar(AnyMO, val));
                 }
             }

diff --git a/test2.pl b/test2.pl
@@ -12,6 +12,14 @@
     is $str, '2413', 'INIT blocks run in correct order';
 }
 
+{
+    my class X3 {
+        has $.a;
+    }
+    my $x = X3.new(a => 5);
+    is $x.a, 5, 'Attribute values can be passed in constructors';
+}
+
 #is $?FILE, 'test.pl', '$?FILE works';
 #is $?ORIG.substr(0,5), '# vim', '$?ORIG works';