Assignable .key and .value for Pair.

rakudo · Aug 3, 2011 · 40f4264 · 40f4264
1 parent 8443d11
commit 40f4264
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/Pair.pm b/src/core/Pair.pm
@@ -1,5 +1,6 @@
 my class Pair is Enum does Associative {
-    # method value() is rw { ... }
+    method key() is rw { nqp::getattr(self, Enum, '$!key') }
+    method value() is rw { nqp::getattr(self, Enum, '$!value') }
 
     multi method ACCEPTS(Pair:D: %h) {
         $.value.ACCEPTS(%h{%.key});