futures.pl

futures.pl

#!/usr/bin/env perl
use v5.36;
use Future::AsyncAwait;
use Future::IO;
use experimental qw( signatures );

async sub f($v) {
    say 'start of f' . $v;
    say time;
    say 'a' . $v;
    await Future::IO->sleep(1);
    say 'after sleep in f' . $v;
    say time;
    say 'b' . $v;
    return time;
}

my $fx = f('x');
my $fy = f('y');
say $fx->get;
say $fy->get;

1;

__END__

sample output:

start of fx
1675216592
ax
start of fy
1675216592
ay
after sleep in fx
1675216593
bx
after sleep in fy
1675216593
by
1675216593
1675216593