/lib/Cache/LRU/Peekable.pm
http://github.com/motemen/Teto · Perl · 15 lines · 11 code · 3 blank · 1 comment · 0 complexity · 804494b20c6f6fc910e0cea6875c23b5 MD5 · raw file
- package Cache::LRU::Peekable;
- use strict;
- use warnings;
- use parent 'Cache::LRU';
- sub peek {
- my ($self, $key) = @_;
- my $value_ref = $self->{_entries}->{$key};
- return undef unless $value_ref;
- # no _update_fifo
- $$value_ref;
- }
- 1;