Parent Directory
| 
Revision Log
| 
Patch
| revision 145 by dpavlin, Fri Jul 11 13:11:36 2008 UTC | revision 146 by dpavlin, Wed Jul 16 21:20:14 2008 UTC | |
|---|---|---|
| # | Line 14 has 'uuid' => ( | Line 14 has 'uuid' => ( |
| 14 | default => sub { Data::UUID->new->create_str } | default => sub { Data::UUID->new->create_str } |
| 15 | ); | ); |
| 16 | ||
| 17 | # Given a name generate a unique field ID | =head2 field_name |
| 18 | ||
| 19 | Given a name generate a unique field ID | |
| 20 | ||
| 21 | my $unique_id = $o->field_name( $name ); | |
| 22 | ||
| 23 | =cut | |
| 24 | ||
| 25 | sub field_name { | sub field_name { |
| 26 | my ($self, $name) = @_; | my ($self, $name) = @_; |
| 27 | return $self->uuid . '-' . $name; | return $self->uuid . '-' . $name; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |