Make sure Mixy / Baggy coerce correctly to each other

rakudo · Oct 4, 2013 · 4b41c01 · 4b41c01
1 parent 560b416
commit 4b41c01
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/src/core/Bag.pm b/src/core/Bag.pm
@@ -29,6 +29,8 @@ my class Bag does Baggy {
         X::Immutable.new( method => 'grab', typename => self.^name ).throw;
     }
 
-    method Bag { self }
+    method Bag     { self }
     method BagHash { BagHash.new-fp(nqp::getattr(self, Bag, '%!elems').values) }
+    method Mix     {     Mix.new-fp(nqp::getattr(self, Bag, '%!elems').values) }
+    method MixHash { MixHash.new-fp(nqp::getattr(self, Bag, '%!elems').values) }
 }
diff --git a/src/core/BagHash.pm b/src/core/BagHash.pm
@@ -51,4 +51,10 @@ my class BagHash does Baggy {
         }
     }           
     method BagHash { self }
+    method Mix     {
+        Mix.new-fp(nqp::getattr(self, BagHash, '%!elems').values);
+    }
+    method MixHash {
+        MixHash.new-fp(nqp::getattr(self, BagHash, '%!elems').values);
+    }
 }
diff --git a/src/core/Mix.pm b/src/core/Mix.pm
@@ -21,4 +21,6 @@ my class Mix does Mixy {
 
     method Mix { self }
     method MixHash { MixHash.new-fp(nqp::getattr(self, Mix, '%!elems').values) }
+    method Bag     {     Bag.new-fp(nqp::getattr(self, Mix, '%!elems').values) }
+    method BagHash { BagHash.new-fp(nqp::getattr(self, Mix, '%!elems').values) }
 }
diff --git a/src/core/MixHash.pm b/src/core/MixHash.pm
@@ -48,4 +48,10 @@ my class MixHash does Mixy {
         }
     }           
     method MixHash { self }
+    method Bag     {
+        Bag.new-fp(nqp::getattr(self, MixHash, '%!elems').values);
+    }
+    method BagHash {
+        BagHash.new-fp(nqp::getattr(self, MixHash, '%!elems').values);
+    }
 }