coro.pl

use strict;
use Coro::State;
use Test::More tests => 2;

my $input;

my $main = new Coro::State;

our $tests = new Coro::State sub {
    our $tests;
    is($input,'foo', 'input is foo');
    $tests->transfer($main);
    is($input,'bar', 'input is bar');
    $tests->transfer($main);
};


sub callback {
    $input = shift;
    $main->transfer($tests);
}

callback('foo');
callback('bar');