Implement Promise.Supply.

rakudo · Aug 19, 2015 · 1f15ace · 1f15ace
1 parent 7bf7457
commit 1f15ace
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/core/Promise.pm b/src/core/Promise.pm
@@ -198,6 +198,20 @@ my class Promise {
         }
         $p
     }
+
+    method Supply(Promise:D:) {
+        my $s = Supply.new;
+        self.then({
+            if self.status == Kept {
+                $s.emit(self.result);
+                $s.done();
+            }
+            else {
+                $s.quit(self.cause);
+            }
+        });
+        $s
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4