#!/usr/bin/perl
use strict;
use warnings;
use Coroutine;

my $coroutine = Coroutine->new();
$coroutine->add_section(
    sub {
        my $self = shift;
        $self->[3] = shift;
        $self->[4] = \@_;
        print "$_\n" for @{ $self->[4] };
        return $self->[3]++;
    }
);

$coroutine->add_section(
    sub {
        my $self = shift;
        print "$self->[3]\n";
        return rand() > .5 ? 'weird' : ++$self->[3];
    }
);

$coroutine->add_section(
    sub {
        my $self = shift;
        print "The end is near - goodbye cruel ";
        return pop @{ $self->[4] };
    }
);

my $wacky = $coroutine->create(42, 'hello', 'world');
print $wacky->(42, 'hello', 'world'), "\n";
print $wacky->(), "\n";
print $wacky->(), "\n";
print $wacky->(), "\n";