}
sub await_all {
- await_future(CPS::Future->needs_all(@_));
+ await_future(CPS::Future->wait_all(@_));
map $_->get, @_;
}
return $res;
}
+package maybe::start;
+
+sub AUTOLOAD {
+ my $invocant = shift;
+ my ($method) = our $AUTOLOAD =~ /^maybe::start::(.+)$/;
+ $method = "start::${method}" if ((caller(1)||'') eq 'start');
+ $invocant->$method(@_);
+}
+
package then;
sub AUTOLOAD {