Teach Hash's STORE about Enum (and thus Pair).

rakudo · Feb 6, 2010 · 815a825 · 815a825
1 parent 0a9c12d
commit 815a825
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -31,7 +31,9 @@ role Hash is EnumMap {
             }
             else {
                 given $cur {
-                    # when Enum { ... }
+                    when Enum {
+                        self{$cur.key} = $cur.value;
+                    }
                     # when EnumMap { ... }
                     default {
                         $key = $cur;