Add Any.kv to provide .kv for Positionals and scalars, as well as a p…

…roto sub for kv.

src/core/Any-list.pm

@@ -162,6 +162,15 @@ augment class Any {
              }
         }
     }
+
+    multi method kv() {
+        my $i = 0;
+        gather for $.list -> $value {
+            my $key = $i++;
+            take $key;
+            take $value;
+        }
+    }
 }
 
 our proto sub join (Str $separator = '', *@values) { @values.join($separator); }
@@ -175,5 +184,6 @@ our proto sub max($by, *@values) { @values.max($by); }
 our proto sub uniq(@values) { @values.uniq; }
 our proto sub pick ($num, :$replace, *@values) { @values.pick($num, :$replace); }
 our proto sub map(&mapper, @values) { @values.map(&mapper); }
+our proto sub kv(@array) { @array.kv; }
 
 # vim: ft=perl6