Frey/Web/Field.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	dpavlin	96	package Frey::Web::Coro;
2	dpavlin	69
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