Yet Another CPAN Grep

Config-Generator ( L/LC/LCONS/Config-Generator-1.1.tar.gz, LCONS, 2021; MetaCPAN )

Config-Generator/lib/Config/Generator/Config.pm ( view source; MetaCPAN )

1.8 $ =~ /(\d+)\.(\d+)/);

#
# used modules
#

use Config::General qw(ParseConfig);
use JSON qw(from_json to_json);
use No::Worries::Die qw(dief);
use No::Worries::Export qw(export_control);
use No::W

) x (@_ || 1));
    my($json, %cfg, $cfg);

    foreach my $path (@paths) {
        log_debug("loading file %s...", $path);
        $json = $path =~ /\.json$/;
        if ($json and substr($path, 0, 1

    last;
            }
        }
        if ($json) {
            $cfg = from_json(file_read($path), { relaxed => 1 });
            dief("unexpected JSON: %s", $path) unless ref($cfg) eq "HASH";