home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Topware / activeperl / ActivePerl / Perl / lib / Memoize / ExpireTest.pm < prev    next >
Encoding:
Perl POD Document  |  2001-07-08  |  930 b   |  50 lines
  1. package Memoize::ExpireTest;
  2.  
  3. =head1 NAME
  4.  
  5. Memoize::ExpireTest - test for Memoize expiration semantics
  6.  
  7. =head1 DESCRIPTION
  8.  
  9. This module is just for testing expiration semantics.  It's not a very
  10. good example of how to write an expiration module.
  11.  
  12. If you are looking for an example, I recommend that you look at the
  13. simple example in the Memoize::Expire documentation, or at the code
  14. for Memoize::Expire itself.
  15.  
  16. If you have questions, I will be happy to answer them if you send them
  17. to mjd-perl-memoize+@plover.com.
  18.  
  19. =cut
  20.  
  21. $VERSION = 0.65;
  22. my %cache;
  23.  
  24. sub TIEHASH {    
  25.   my ($pack) = @_;
  26.   bless \%cache => $pack;
  27. }
  28.  
  29. sub EXISTS {
  30.   my ($cache, $key) = @_;
  31.   exists $cache->{$key} ? 1 : 0;
  32. }
  33.  
  34. sub FETCH {
  35.   my ($cache, $key) = @_;
  36.   $cache->{$key};
  37. }
  38.  
  39. sub STORE {
  40.   my ($cache, $key, $val) = @_;
  41.   $cache->{$key} = $val;
  42. }
  43.  
  44. sub expire {
  45.   my ($key) = @_;
  46.   delete $cache{$key};
  47. }
  48.  
  49. 1;
  50.