- # search for it
- # unless ($dbm->get($call, $data)) {
- # eval { $ref = decode($data); };
-
- # if ($ref) {
- # if (!UNIVERSAL::isa($ref, 'DXUser')) {
- # dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring");
- # return undef;
- # }
- # # we have a reference and it *is* a DXUser
- # } else {
- # if ($@) {
- # LogDbg('err', "DXUser::get decode error on $call '$@'");
- # } else {
- # dbg("DXUser::get: no reference returned from decode of $call $!");
- # }
- # return undef;
- # }
- # $lru->put($call, $ref);
- # return $ref;
- # }