302 Found Coroで出来ないと思ってたんだけど、出来る事を知った。 Coro::Generatorで十分っぽいなー HTTP::Engine::Interface::非同期系Server か何かで使えそうな気がしてるんだが、どうだろうか。 use strict; use warnings; { package Itr; use Coro::Generator; 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