/[cvs]/nfo/perl/libs/Tangram/Storage.pm
ViewVC logotype

Diff of /nfo/perl/libs/Tangram/Storage.pm

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

revision 1.1 by jonen, Mon Dec 16 05:01:13 2002 UTC revision 1.7 by joko, Thu Dec 19 16:37:54 2002 UTC
# Line 253  sub make_guid Line 253  sub make_guid
253    {    {
254      my $self = shift;      my $self = shift;
255    
256      eval ("use Data::UUID;");      my $guid;
257      my $ug = Data::UUID->new();  
258      my $guid = $ug->create_str();      # try to use Data::UUID first ...
259        eval("use Data::UUID;");
260        if (!$@) {
261          my $ug = Data::UUID->new();
262          $guid = $ug->create_str();
263          
264        # ... if this fails, try to fallback to Data::UUID::PurePerl instead ...
265        } else {
266          eval("use Data::UUID::PurePerl;");
267          if (!$@) {
268            $guid = Data::UUID::PurePerl::generate_id();
269          } else {
270            croak "couldn't create globally unique identifier";
271          }
272        }
273            
274      return $guid;      return $guid;
275    }    }
# Line 468  sub _insert Line 482  sub _insert
482      return $self->id($obj)      return $self->id($obj)
483        if $self->id($obj);        if $self->id($obj);
484    
485          # insert global unique identifier in object to persist across re-deploys          # insert global unique identifier in object to persist across re-deploys
486          $obj->{guid} = $self->make_guid();            $obj->{guid} = $self->make_guid();
   
   # debug  
   use Data::Dumper;  
         print Dumper($obj);  
487                    
488      $saving->insert($obj);      $saving->insert($obj);
489    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed