Implement Supply.share (on-demand => live).

rakudo · Dec 13, 2015 · a342eb1 · a342eb1
1 parent 236cd2e
commit a342eb1
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -1355,6 +1355,15 @@ my class Supply {
             }
         }
     }
+
+    method share(Supply:D:) {
+        my $sup = Supplier.new;
+        self.tap:
+            -> \msg { $sup.emit(msg) },
+            done => -> { $sup.done() },
+            quit => -> \ex { $sup.quit(ex) }
+        $sup.Supply
+    }
 }
 
 # A Supplier is a convenient way to create a live Supply. The publisher can