/lib/Cache/LRU/Peekable.pm

 1package Cache::LRU::Peekable;
 2use strict;
 3use warnings;
 4use parent 'Cache::LRU';
 5
 6sub peek {
 7    my ($self, $key) = @_;
 8    my $value_ref = $self->{_entries}->{$key};
 9    return undef unless $value_ref;
10
11    # no _update_fifo
12    $$value_ref;
13}
14
151;