[perl #53666] [PATCH] Implementation of "kv" method for rakudo's hashes.

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #53666]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=53666 >


Hello.

There is implementation of "kv" method for rakudo.

Only languages/perl/src/classes/Hash.pir affected.

-- 
Bacek.

Index: src/classes/Hash.pir
===================================================================
--- src/classes/Hash.pir	(revision 27306)
+++ src/classes/Hash.pir	(working copy)
@@ -39,7 +39,24 @@
     .return ($S0)
 .end
 
+.sub 'kv' :method
+    .local pmc iter
+    .local pmc rv
+    iter = new 'Iterator', self
+    rv   = new 'List'
+  loop:
+    unless iter goto end
+    $S1 = shift iter
+    push rv, $S1
+    $S1 = iter[$S1]
+    push rv, $S1
+    goto loop
+  end:
+    .return (rv)
+.end
 
+
+
 .sub 'keys' :method
     .local pmc iter
     .local pmc rv