Yet Another CPAN Grep

Config-Trivial-JSON ( A/AT/ATRICKETT/Config-Trivial-JSON-0.02_01.tar.gz, ATRICKETT, 2014; MetaCPAN )

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

#   $Id: JSON.pm 12 2014-06-04 22:14:15Z adam $

package Config::Trivial::JSON;

use base qw( Config::Trivial );

use 5.010;
use strict;
use Carp;
use warnings;
use JSON::MaybeXS;

our $VERSION = '0.0

    my $self = shift;
    my %args = @_;

    my $file = $args{'config_file'}
        || $self->{_json_file}
        || $self->{_config_file};

    if ( (   ( $self->{_self} )
          && ( ( $file =

y $json_text = encode_json( $settings );
    if ( $json_text ) {
        open my $json_file, '>', $file or croak "Unable to store to $file";
        print $json_file $json_text;
        close $json_fi