Make sure .perl work correctly for typed hashes

rakudo · Jul 8, 2013 · 6933c1d · 6933c1d
1 parent f45f221
commit 6933c1d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -189,6 +189,11 @@ my class Hash {
                 nqp::unbox_s($key.Str),
                 bindval)
         }
+        multi method perl(::?CLASS:D \SELF:) {
+            "Hash[{TValue.perl}].new("
+              ~ self.pairs.map({.perl}).join(', ')
+              ~ ')';
+        }
     }
     my role TypedHash[::TValue, ::TKey] does Associative[TValue] {
         has $!keys;
@@ -262,6 +267,11 @@ my class Hash {
                 Nil
             }
         }
+        multi method perl(::?CLASS:D \SELF:) {
+            "Hash[{TValue.perl},{TKey.perl}].new("
+              ~ self.pairs.map({.perl}).join(', ')
+              ~ ')';
+        }
     }
     method PARAMETERIZE_TYPE(Mu $t, |c) {
         c.elems ??