Re: mod_perl memory question

in reply to mod_perl memory question

If the cache needs to be shared among children - I second the vote for memcache.

If each child needs its own, I'd do something like the following using the End module:


# add clear_cache method to your sharedcache
package sharedcache;
sub clear_cache { $cache = undef }


# inside your apache handler use the following:

use End;
sub handler {
    my $clear_cache = end { sharedcache::clear_cache() };

    # normal handler operations go here
}
[download]

When your handler goes out of scope - the object stored in $clear_cache will go out of scope and the stored coderef will fire - clearing your cache.

my @a=qw(random brilliant braindead); print $a[rand(@a)];

In Section Seekers of Perl Wisdom