RubyのFiberをPerlでも
package Fiber;use strict;use warnings;use Carp ();sub new (&@) {my $code = shift;bless {code => $code,block => 0,now => 0,}, __PACKAGE__;}sub run (&@) {Carp::croak q!Can't call Fiber::run {} outside F...
http://d.hatena.ne.jp/yappo/20090129/1233234481
http://b.hatena.ne.jp/entry/http://d.hatena.ne.jp/yappo/20090129/1233234481