Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Perl6: react/whenever timeout

by moritz (Cardinal)
on Jul 21, 2016 at 20:57 UTC ( #1168273=note: print w/replies, xml ) Need Help??

in reply to Perl6: react/whenever timeout

Concurrency is not my big strength, so this will likely turn out to be a bit more clunky than necessary.

One possible trick is to use the Promise.anyof combinator to get the first of the timeout or the actual receiving action:

my $c = channel("Message"); say "Listening"; loop { my $timeout =; my $result = start { $c.receive } my $combined = Promise.anyof( $result , $timeout); await $combined.then({ if $result { say $result.result; } else { say 'timeout'; } }) }

This puts a timeout on every individual .receive, but finishes early if a value is available earlier. It's also not a busy loop, so doesn't use much CPU.

I'm sure there are much more elegant solutions out there if you use a supply instead of a channel to generate the values; maybe some of the promise combinators like zip-latest can be used then.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1168273]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2022-11-29 03:55 GMT
Find Nodes?
    Voting Booth?