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

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

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

revision 1.13 by joko, Thu Dec 5 07:59:04 2002 UTC revision 1.14 by jonen, Thu Dec 5 09:40:30 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.14  2002/12/05 09:40:30  jonen
7    #  + added option->{destroy} at getObject for unloading all instance
8    #
9  #  Revision 1.13  2002/12/05 07:59:04  joko  #  Revision 1.13  2002/12/05 07:59:04  joko
10  #  + now using Tie::SecureHash as a base for the COREHANDLE  #  + now using Tie::SecureHash as a base for the COREHANDLE
11  #  + former public COREHANDLE becomes private _COREHANDLE now  #  + former public COREHANDLE becomes private _COREHANDLE now
# Line 489  sub createDb { Line 492  sub createDb {
492  sub getObject {  sub getObject {
493    my $self = shift;    my $self = shift;
494    my $oid = shift;    my $oid = shift;
495      my $options = shift;
496      # TODO: create a deep_unload method
497      # unload($oid) will only unload object, not deep object hashes
498      $self->{_COREHANDLE}->unload() if($options->{destroy});
499    # TODO: review this    # TODO: review this
500    #if (!$self->{COREHANDLE}) { return; }    #if (!$self->{COREHANDLE}) { return; }
501    return $self->{_COREHANDLE}->load($oid);    return $self->{_COREHANDLE}->load($oid);
# Line 498  sub getObjectAsHash { Line 505  sub getObjectAsHash {
505    my $self = shift;    my $self = shift;
506    my $oid = shift;    my $oid = shift;
507    my $options = shift;    my $options = shift;
508    my $obj = $self->getObject($oid);    my $obj = $self->getObject($oid, $options);
509    my $deref = var_deref($obj);    my $deref = var_deref($obj);
510    var2utf8($deref) if ($options->{utf8});    var2utf8($deref) if ($options->{utf8});
511    undef($obj) if($options->{destroy});    #$obj->clear_refs;
512      #$self->{COREHANDLE}->unload($obj) if($options->{destroy});
513      #$obj->DESTROY;
514      #undef($obj) if($options->{destroy});
515    return $deref;    return $deref;
516  }  }
517    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed