Rev | Line | |
---|
[14489] | 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 [email protected].
|
---|
| 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;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.