Implement keybag(), so that at least KeyBag.perl can roundtrip

rakudo · Aug 3, 2013 · 103d5ea · 103d5ea
1 parent 044950d
commit 103d5ea
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/KeyBag.pm b/src/core/KeyBag.pm
@@ -236,3 +236,7 @@ my class KeyBag does Associative does Baggy {
         self;
     }
 }
+
+sub keybag(*@a) returns KeyBag {
+    KeyBag.new(|@a);
+}