Make sure .perl works correctly on Array's with constrained values

rakudo · Jul 8, 2013 · 8bd124f · 8bd124f
1 parent 577a030
commit 8bd124f
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -132,6 +132,13 @@ class Array {
             self.gimme($pos + 1);
             nqp::bindpos(nqp::getattr(self, List, '$!items'), $pos, bindval)
         }
+        multi method perl(::?CLASS:D \SELF:) {
+            'Array['
+              ~ TValue.perl
+              ~ '].new('
+              ~ self.map({.perl}).join(', ')
+              ~ ')';
+        }
         # XXX some methods to come here...
     }
     method PARAMETERIZE_TYPE(Mu $t) {