tokuhirom's Blog

[perl] Object::Generator の yield が面白い

http://blogs.perl.org/users/joel_berger/2013/07/a-generator-object-for-perl-5.html

Coro をつかってイテレータを簡単に実装できるようにしているのがオツですな。

use strict; use warnings;
use Generator::Object;

my $gen = generator {
my $x = 0;
while (1) {
    $x += 2;
    $_->yield($x);
}
};

print $gen->next; # 2
print $gen->next; # 4