NAME
Config::Reload - Load config files, reload when files changed.
VERSION
version 0.21
SYNOPSIS
my $config = Config::Reload->new(
wait => 60, # check at most every minute (default)
... # passed to Config::ZOMG, e.g. file => $filename
);
my $config = $config->load;
sleep(60);
$config = $config->load; # reloadedDESCRIPTION
This Perl package loads config files via Config::ZOMG which is based on Config::Any. Configuration is reloaded on file changes (based on file names and last modification time).
This package is highly experimental and not fully covered by unit tests!
METHODS
new
Returns a new Config::Reload object. All arguments but wait, error and checked are passed to the constructor of Config::ZOMG.
load
Get the configuration, possibly (re)loading configuration files. Always returns a hash reference, on error this { } .
wait
Get or set the number of seconds to wait between checking. Set to 60 (one minute) by default.
checked
Returns a timestamp of last time files had been checked.
loaded
Returns a timestamp of last time files had been loaded. Returns undef before first loading and on error.
found
Returns a list of files that configuration has been loaded from.
find
Returns a list of files that configuration will be loaded from on next check. Files will be reloaded only if files_hash value of of find differs from the value of found:
use Config::Reload qw(files_hash);
files_hash( $config->find ) ne files_hash( $config->found )error
Returns an error message if loading failed. As long as an error is set, the load method returns an empty hash reference until the next attempt to reload (typically the time span defind with wait). One can manually unset the error with $c->error(undef) to force reloading.
FUNCTIONS
files_hash( @files )
Returns a hexadecimal MD5 value based on names, -sizes and modification times of a list of files. Internally used to compare find and found.
This function can be exported on request.
AUTHOR
Jakob Voß
COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Jakob Voß.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.