view release on metacpan or  search on metacpan

lib/ChordPro/Config.pm  view on Meta::CPAN

        while ( my ($k, $v) = each %{ChordPro::Chords::Parser->parsers} ) {
            warn( "  $k",
                  $v eq $cp ? " (active)": "",
                  "\n");
        }
    }

    return $cfg;
}

# Get the decoded contents of a single config file.
sub get_config ( $file ) {
    Carp::confess("FATAL: Undefined config") unless defined $file;
    my $verbose = $options->{verbose};
    warn("Reading: $file\n") if $verbose > 1;
    $file = expand_tilde($file);

    if ( $file =~ /\.json$/i ) {
        if ( open( my $fd, "<:raw", $file ) ) {
            my $new = json_load( loadlines( $fd, { split => 0 } ), $file );
            precheck( $new, $file );