/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. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. use parent 'Cache::LRU';
    5. 

  5. 

  6. sub peek {
    7. 

  7.     my ($self, $key) = @_;
    8. 

  8.     my $value_ref = $self->{_entries}->{$key};
    9. 

  9.     return undef unless $value_ref;
    10. 

  10. 

  11.     # no _update_fifo
    12. 

  12.     $$value_ref;
    13. 

  13. }
    14. 

  14. 

  15. 1;
    16.