generator_coro_channel.pl

use strict;
use warnings;
use Coro;
use Coro::Channel;
use Perl6::Say;

my $resume;
my $yield;
my $func;
{
    my $ch = Coro::Channel->new;
    $resume = sub {
        cede;
        $ch->get;
    };
    $yield = sub {
        $ch->put(shift);
        cede;
    };
    async {
        $func->();
    };
}

$func = sub {
    my $n = 0;
    while (1) {
        $yield->($n++);
    }
};

say $resume->(); # 0
say $resume->(); # 1 
say $resume->(); # 2