On Fri, 7 Jan 2005, Daisuke Maki wrote:
+sub _get_cache
+{
+ if (! defined $CACHE) {
+ require Cache::FileCache;
+
+ my $namespace = __PACKAGE__;
+ $namespace =~ s/::/-/g;
+ $CACHE = Cache::FileCache->new( {
+ namespace => $namespace,
+ default_expires_in => $Cache::Cache::EXPIRES_NEVER
+ });
+ }
+ return $CACHE;
+}
This should probably default to MemoryCache, for politeness. Also, how about making it a method instead of a global?
-dave
/*=========================== VegGuide.Org Your guide to all that's veg. ===========================*/
