Frey/Web/Coro.pm

package Frey::Web::Coro;

use Moose::Role;
use Coro::Generator;

has 'cont'   => (is => 'rw');
has 'output' => (is => 'rw');
has 'input'  => (is => 'rw');

sub process {
  my ($self, $input) = @_;
  $self->input($input);
  $self->{cont} ||= generator { while(1) { $self->main } };
  $self->{cont}->();
  return $self->output;
}

sub next {
  my ($self, $output) = @_;
  $self->output($output);
  yield();
  return $self->input;
}

1;

1	package Frey::Web::Coro;
2
3	use Moose::Role;
4	use Coro::Generator;
5
6	has 'cont' => (is => 'rw');
7	has 'output' => (is => 'rw');
8	has 'input' => (is => 'rw');
9
10	sub process {
11	my ($self, $input) = @_;
12	$self->input($input);
13	$self->{cont} \|\|= generator { while(1) { $self->main } };
14	$self->{cont}->();
15	return $self->output;
16	}
17
18	sub next {
19	my ($self, $output) = @_;
20	$self->output($output);
21	yield();
22	return $self->input;
23	}
24
25	1;
26