NAME
Cache::Meh - A cache of indifferent quality
VERSION
version 0.04
SYNOPSIS
use 5.008;
use Cache::Meh;
use Digest::SHA qw(sha1);
my $cache = Cache::Meh->new(
filename => 'blort',
validity => 10, # seconds
lookup => sub {
my $key = shift;
return sha1($key);
},
);
my $value = $cache->get('some_key');
if ( sha1('some_key') eq $value ) {
print "equal\n";
}
else {
print "not equal\n";
}
OVERVIEW
This module is intended to implement a very simple memory cache where
the internal cache state is serialized to disk by Storable so that the
cached data persists beyond a single execution environment which makes
it suitable for things like cron tasks or CGI handlers and the like.
You may optionally disable disk access by setting the "only_memory"
attribute.
Cache state is stored to disk when a key is set in the cache; keys are
only purged from the cache when they expire and there is no "lookup"
function available. These are arguably bad design decisions which may
encourage you to seek your caching pleasure elsewhere. On the other
hand, pull requests are welcome.
Since this module is intended to be run under Perl 5.8 (but preferably
much much more recent Perls) it sadly eschews fancy object systems like
Moo. It doesn't require any dependencies beyond core modules. I maybe
would have called it Cache::Tiny, but then people might use it.
Besides, this is a cache of indifferent quality. You probably ought to
be using something awesome like CHI or Cache::Cache or Cache.
ATTRIBUTES
filename
This is the filename for your Storable file. Required unless you specify
"only_memory".
The file is written to the "temporary" path as provided by File::Spec
"tmpdir". On Unix systems, you may influence this directory by setting
the "TMPDIR" environment variable.
only_memory
If this attribute is set, then DO NOT access the disk for reads or
writes. Only store cache values in memory. This option is mutually
exclusive from the "filename" attribute above.
validity
Pass an argument to set it; no argument to get its current value.
How long keys should be considered valid in seconds. Arguments must be
positive integers.
Each key has an insert time; when the insert time + validity is greater
than the current time, the cache refreshes the cached value by executing
the lookup function or evicting the key from the cache if no lookup
function is provided.
This value defaults to 300 seconds (5 minutes) if not provided.
lookup
Pass an argument to set it; no argument to get its current value.
A coderef which is executed when a key is no longer valid or not found
in the cache. The coderef is given the cache key as a parameter.
Optional; no default.
METHODS
new
A constructor. You must provide the filename unless "only_memory" is
set. You may optionally provide a validity time and lookup function. The
cache state is loaded (if available) as part of object construction.
get
Takes a key which can be any valid Perl hash key term. Returns the
cached value or undef if no lookup function is defined.
set
Takes a key and a value which is unconditionally inserted into the
cache. Returns the cache object.
The cache state is serialized during set operations unless "only_memory"
is set.
AUTHOR
Mark Allen <mrallen1@yahoo.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Mark Allen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.