study coro

coro1.pl

use strict;
use warnings;
use Coro;

my $n = 0;

async {
    print "async 1 - $n\n";
    $n++;
    cede;
    print "async 2 - $n\n";
    $n++;
};

print "main 1 - $n\n";
$n++;
cede;
print "main 2 - $n\n";
$n++;
cede;
print "main 3 - $n\n";

# 出力
# $nはメインプロセスとスレッドで共有している
# main 1 - 0
# async 1 - 1
# main 2 - 2
# async 2 - 3
# main 3 - 4