First try on adding .assuming on Callable

FCO · Sep 15, 2017 · e9aa878 · e9aa878
1 parent 627de78
commit e9aa878
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Callable.pm b/src/core/Callable.pm
@@ -1,6 +1,10 @@
 my role Callable[::T = Mu] {
     method of() { T }
     method returns() { T }
+    method assuming(Callable:D $self: |primers) {
+        my &func = EVAL "-> {$self.signature.params>>.gist.join(", ")} \{ \$self.({$self.signature.params>>.name.join(", ")}) \}";
+        &func.assuming(|primers)
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4