my $q = $self->obj->{$call};
confess("$call is already removed") unless $q;
dbg("LRU $self->[5] cache remove $call now $self->[4]/$self->[3]") if isdbg('lru');
my $q = $self->obj->{$call};
confess("$call is already removed") unless $q;
dbg("LRU $self->[5] cache remove $call now $self->[4]/$self->[3]") if isdbg('lru');