This queue is for tickets about the future CPAN distribution.

Report information
The Basics

Nobody in particular
leonerd-cpan [...]

Broken in:
(no value)
Fixed in:
(no value)

Subject: Making conditional code easier
The classic middle-conditional problem which in straightline code is A() if(COND) { B() } C() is awkward to express with Future-returning functions. Current best attempt looks something like A() ->then( sub { if(!COND) { return Future->done() } B(); }) ->then( sub { C() }); One possible solution would be a 'then_if' method on Future instances, which takes a condition and a code block A() ->then_if(COND => sub { B() }) ->then( sub { C() } Easy enough to implement sub then_if { my $self = shift; my ( $cond, $code ) = @_; return $self->then($code) if $cond; return $self; } Though this obviously only restricts it to conditions that don't depend on the result of A(). Another thought is a Future->if class method A() ->then( sub { Future->if(COND, sub { B() }) }) ->then( sub { C(); }) which in the case of a false condition can just yield an empty Future->done. But at that point it's not much of an improvement on ->then( sub { COND ? B() : Future->done } ) in such a small case as this, though it does win out in neatness if the B() code is in fact a much longer block of statements, rather than a simple function-call expression. -- Paul Evans
Plus a simple extension to this would be to name 'cond' instead and take an even-sized list of condition+code pairs, similar to the (cond ...) construct in Scheme. -- Paul Evans
On further thought, Future::AsyncAwait and the async/await syntax makes this entire subject a whole lot simpler, to the point that I don't really think Future itself needs to solve it. Anyone who wanted the readability in newly-written code probably wanted to be using async/await syntax, now that it largely works. -- Paul Evans
Closing this because it's much neater to just use `await` in a conditional inside `async sub` or `async method`. -- Paul Evans

This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with to