1 package Memoize::ExpireTest;
5 Memoize::ExpireTest - test for Memoize expiration semantics
9 This module is just for testing expiration semantics. It's not a very
10 good example of how to write an expiration module.
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.
16 If you have questions, I will be happy to answer them if you send them
17 to mjd-perl-memoize+@plover.com.
26 bless \%cache => $pack;
30 my ($cache, $key) = @_;
31 exists $cache->{$key} ? 1 : 0;
35 my ($cache, $key) = @_;
40 my ($cache, $key, $val) = @_;
41 $cache->{$key} = $val;