remove implicit type constraint in .pairs

Also refactored to make a bit faster when no indices are given, pmichaud++
rakudo · Mar 8, 2009 · 051ad51 · 051ad51
1 parent 0f1c600
commit 051ad51
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/setting/Any-list.pm b/src/setting/Any-list.pm
@@ -33,11 +33,16 @@ class Any is also {
      };
 
 
-    multi method pairs(@values: *@indices) {
+    multi method pairs(*@indices) {
         gather {
-            for (@values.keys Z @values) -> $key, $val is rw {
-                take ($key => $val)
-                    unless (@indices && ($key !~~ any(@indices)));
+            if @indices {
+                for (self.list.keys Z self.list) -> $key, $val is rw {
+                    take ($key => $val) if $key ~~ any(@indices);
+                }
+            } else {
+                for (self.list.keys Z self.list) -> $key, $val is rw {
+                    take ($key => $val)
+                }
             }
         }
     }