Add proto for pick.

rakudo · Feb 20, 2010 · abb98b4 · abb98b4
1 parent 3b869ce
commit abb98b4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/Any-list.pm b/src/core/Any-list.pm
@@ -173,5 +173,6 @@ our proto sub first($test, @values) { @values.first($test); }
 our proto sub min($by, *@values) { @values.min($by); }
 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); }
 
 # vim: ft=perl6