Async gather

gistfile1.pl

(
   gather {
      my $c = Channel.new;
      my @ps = do for ^10 { start { sleep rand; $c.send($_) } };
      my $p = Promise.allof(@ps);
      loop {
         earliest $c {
            more * {
               take $_;
            }
         };
         last if $p;
      }
      await @ps;
   }).map(*.say)

(
    gather {
        my $c = Channel.new;
        my @ps = do for ^10 { start { sleep rand; $c.send($_) } };
        Promise.allof(@ps).then({ $c.close });
        take $_ for $c.list;
    }
).map(*.say)

That's much nicer :)