Frey/Web/Field.pm

package Frey::Web::Field;

use Moose::Role;
use Coro::Generator;
use Data::UUID;

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

has 'uuid'   => (
  is      => 'ro', 
  isa     => 'Str', 
  default => sub { Data::UUID->new->create_str }
);

# Given a name generate a unique field ID
sub field_name {
  my ($self, $name) = @_;
  return $self->uuid . '-' . $name;
}

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::Field;
2
3	use Moose::Role;
4	use Coro::Generator;
5	use Data::UUID;
6
7	has 'cont' => (is => 'rw');
8	has 'output' => (is => 'rw');
9	has 'input' => (is => 'rw');
10
11	has 'uuid' => (
12	is => 'ro',
13	isa => 'Str',
14	default => sub { Data::UUID->new->create_str }
15	);
16
17	# Given a name generate a unique field ID
18	sub field_name {
19	my ($self, $name) = @_;
20	return $self->uuid . '-' . $name;
21	}
22
23	sub process {
24	my ($self, $input) = @_;
25	$self->input($input);
26	$self->{cont} \|\|= generator { while(1) { $self->main } };
27	$self->{cont}->();
28	return $self->output;
29	}
30
31	sub next {
32	my ($self, $output) = @_;
33	$self->output($output);
34	yield();
35	return $self->input;
36	}
37
38	1;
39