view release on metacpan or  search on metacpan

docs/talks/perl6-apw2005/code/class/coro1.pl  view on Meta::CPAN

#=Coroutinen
use v6;
coro zähler {
	for 1..10 -> $i {
		yield $i;
	}
}

my $i;
while $i = zähler() != 0 {
	say $i;
}