Yet another Python-like generator using Coro

generator_script.pl

#!/usr/bin/env perl

use v5.10;
use strict;
use warnings;

package MyGenerator;

use Coro;

sub new {
  my $class = shift;
  my $sub = shift;

  return bless { sub => $sub }, $class;
}

sub next {
  my $self = shift;

  $self->{coro} = async {
    local $_ = $self;
    $self->{sub}->();
  } unless $self->{coro};
  
  cede;
  return $self->{retval};
}

sub yield {
  my $self = shift;
  $self->{retval} = shift;
  cede;
}

package main;

sub generator (&) {
  my $sub = shift;
  my $gen = MyGenerator->new($sub);
  return $gen;
}

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

say $gen->next;
say $gen->next;
say $gen->next;
say $gen->next;