Kansai.pmでコルーチンについて発表してきた - はこべにっき ? みたら出てたので 続: RubyのFiberをPerlでも - Yappo::タワシ のを書き換えた use strict; use warnings; { package Itrator; use Fiber; sub new { my($class, @list) = @_; bless { list => \@list, coro => undef }, $class; } sub each { my($self, $code) = @_; for my $val (@{ $self->{list} }) { $code->($val); } } sub get { my $self = shift; $self->{coro} ||= Fiber->new(sub { $self->each(sub { $s