1 package Memoize::ExpireTest;
5 Memoize::ExpireTest - test for Memoize expiration semantics
9 This is just for testing expiration semantics. It's not actually a
10 very 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.
25 bless \%cache => $pack;
29 my ($cache, $key) = @_;
30 exists $cache->{$key} ? 1 : 0;
34 my ($cache, $key) = @_;
39 my ($cache, $key, $val) = @_;
40 $cache->{$key} = $val;