Add Pair.keys and Pair.values.

rakudo · May 15, 2010 · 82f7ef3 · 82f7ef3
1 parent ddaab3d
commit 82f7ef3
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/Pair.pm b/src/core/Pair.pm
@@ -2,6 +2,14 @@ augment class Pair {
     multi method perl() {
         $.key.perl ~ ' => ' ~ $.value.perl;
     }
+
+    method keys() {
+        [self.key];
+    }
+
+    method values() {
+        [self.value];
+    }
 }
 
 multi sub infix:<cmp>(Pair $a, Pair $b) {