Simple generators for Perl using Coro::Channel and closures (unlike Coro::Generator which manipulates the state explicitly).

gistfile1.pl

#!/usr/bin/env perl
use strict;

sub gen(&) {
  use Coro;
  my $fun = shift;
  my $arg = new Coro::Channel;
  my $out = new Coro::Channel;
  my $yield = sub(@) {
    $out->put([@_]);
    @_ = @{$arg->get};
    wantarray ? @_ : pop;
  };
  async {
    sub yield(@);
    Coro::on_enter {
      no strict 'refs';
      *{'yield'} = $yield;
    };
    Coro::on_leave {
      no strict 'refs';
      undef *{'yield'};
    };
    $fun->(@{$arg->get});
    $out->shutdown;
  };
  sub(@) {
    $arg->put([@_]);
    @_ = @{$out->get or []};
    wantarray ? @_ : pop;
  };
}