/[Frey]/trunk/lib/Frey/Web/Field.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/Field.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/lib/Frey/Web/Coro.pm revision 96 by dpavlin, Fri Jul 11 12:47:50 2008 UTC trunk/lib/Frey/Web/Field.pm revision 97 by dpavlin, Fri Jul 11 13:11:36 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::Coro;  package Frey::Web::Field;
2    
3  use Moose::Role;  use Moose::Role;
4  use Coro::Generator;  use Coro::Generator;
5    use Data::UUID;
6    
7  has 'cont'   => (is => 'rw');  has 'cont'   => (is => 'rw');
8  has 'output' => (is => 'rw');  has 'output' => (is => 'rw');
9  has 'input'  => (is => 'rw');  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 {  sub process {
24    my ($self, $input) = @_;    my ($self, $input) = @_;
25    $self->input($input);    $self->input($input);
Legend:
Removed from v.96  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.26