Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: mod_perl memory question

by Rhandom (Curate)
on Mar 05, 2008 at 15:46 UTC ( #672199=note: print w/ replies, xml ) Need Help??

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 }

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)];

Comment on Re: mod_perl memory question
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://672199]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (10)
As of 2015-10-07 11:34 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (179 votes), past polls