Create proper .VAR.of methods for Array/Hash, makes 4 TODO tests pass

rakudo · Aug 19, 2013 · bc39ad2 · bc39ad2
1 parent 2857585
commit bc39ad2
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -87,6 +87,10 @@ class Array { # declared in BOOTSTRAP
 
     method flattens() { 1 }
 
+    method of() {
+        my $d := $!descriptor;
+        nqp::isnull($d) ?? Mu !! $d.of;
+    }
     method default() {
         my $d := $!descriptor;
         nqp::isnull($d) ?? Mu !! $d.default;

diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -77,6 +77,10 @@ my class Hash { # declared in BOOTSTRAP
         self
     }
 
+    method of() {
+        my $d := $!descriptor;
+        nqp::isnull($d) ?? Mu !! $d.of;
+    }
     method default() {
         my $d := $!descriptor;
         nqp::isnull($d) ?? Mu !! $d.default;