/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

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