y $json;
my $have_config_any;
my $have_file_configdir;
my $have_file_find_rule;
BEGIN
{
foreach my $mod (qw(JSON JSON::PP))
{
eval "require $mod";
$@ and next;
$json =
last;
}
# $json or die "" . __PACKAGE__ . " requires a JSON parser";
# finally ... Config::Any could be enough, and most recent
# perl5 are coming with JSON::PP
$have_file_co
fdirs;
};
$have_config_any
or *get_config_pattern = sub {
my @pattern;
$json and push( @pattern, "json" );
@pattern;
};
$have_config_any
and *get_config_pattern = sub {
my @p