NAME
SimpleDir - Cache, time consuming subroutines or paid api calls
VERSION
version 2.0.6
SYNOPSIS
#!/usr/bin/perl
use Cache::SimpleDir;
my $cache = SimpleDir->new(
cache_dir => '/tmp/cache/key1',
callback => 'GetWeather',
expire_sec => 1800,
verbose => 'false') or die $SimpleDir::ERROR;
my $where_are_my_data = $cache->get('a','b','c') or die "oups $SimpleDir::ERROR\n";
print "data are at: $where_are_my_data\n";
# How to get and cache new data
sub GetWeather {
my $dir = shift;
open FILE, '>', "$dir/file.txt" or return undef;
print FILE 'Example of callback. Arguments: ', join ',', @_;
close FILE
}DESCRIPTION
Every time you use the get method, it returns only the cache directory where your files are stored. It is up to your code, to do something with these files. Read them, copy them or whatever.
If the cache data are older than expire_sec then the callback subroutine is called automatically; new data are cached, while the old are deleted. So there is no need for a set method.
Write at the callback subroutine the code, that generate new data. Its first argument is always the directory that you should write your cached files. Any optional argument used at the get is passed at the callback
ABSTRACT
Cache, time consuming subroutines or paid api calls. It is thread safe, and can be used from different processes using the same cache_dir
ERROR HANDLING
On error get returns FALSE. Sets the error message at the variable $SimpleDir::ERROR and at the property $obj->error_message while the error code is at $obj->error
METHODS
new
Generate and return a new cache object, while it initialize/overwrite the default properties
cache_dir The root cache directory of your key
callback The subroutine name that cache new data. Becarefull not it is a simple name not a code reference
expire_sec After how many seconds the record will be considered expired and a new one should cached using the callback
verbose Verbose operation if TRUE or 1
get
Returns the cache directory where your files/dirs are stored. If the the files/dirs are older than expire_sec seconds then are deleted and new one are cached by calling automatically the subroutine defined at the callback
If your code at the callback encount an error then you must return with FALSE. On success, at the end, your code must return TRUE.
SEE ALSO
CGI::Cache Perl extension to help cache output of time-intensive CGI scripts
File::Cache Share data between processes via filesystem
Cache::FastMmap Uses an mmap'ed file to act as a shared memory interprocess cache
AUTHOR
George Bouras <george.mpouras@yandex.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2019 by George Bouras.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.