/[Sack]/trunk/lib/Sack/Digest/BerkeleyDB.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/Sack/Digest/BerkeleyDB.pm

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

revision 50 by dpavlin, Thu Sep 24 19:21:55 2009 UTC revision 54 by dpavlin, Thu Sep 24 22:23:30 2009 UTC
# Line 148  sub info { Line 148  sub info {
148          my $self = shift;          my $self = shift;
149          my $info;          my $info;
150          $info->{$_} = $self->{"db_$_"}->db_stat foreach qw( md5_nr nr_md5 md5 );          $info->{$_} = $self->{"db_$_"}->db_stat foreach qw( md5_nr nr_md5 md5 );
151          warn "[$port] BDB info [$seq] ", dump $info;          warn "[$port] BDB info [$seq] ", dump( map { $info->{$_}->{bt_nkeys} } keys %$info );
152          return $info;          return $info;
153  }  }
154    
155    sub lookup {
156            my ( $self, $name, $key ) = @_;
157            die "no lookup $name" unless $self->{$name};
158            die "no key" unless $key;
159    #warn "XXXX $self->{$name}";
160            my $v = $name eq 'nr_md5' ? $self->{ $name }->[$key] : $self->{ $name }->{$key} ;
161            warn "### lookup $name $key = $v\n";
162            return $v;
163    }
164    
165  1;  1;
Legend:
Removed from v.50  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26