--- trunk/lib/Continuity/Coro/Moose.pm	2008/07/09 15:45:59	69
+++ trunk/lib/Frey/Web/Field.pm	2008/07/16 21:20:14	146
@@ -1,12 +1,32 @@
-package Continuity::Coro::Moose;
+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 }
+);
+
+=head2 field_name
+
+Given a name generate a unique field ID
+
+  my $unique_id = $o->field_name( $name );
+
+=cut
+
+sub field_name {
+  my ($self, $name) = @_;
+  return $self->uuid . '-' . $name;
+}
+
 sub process {
   my ($self, $input) = @_;
   $self->input($input);