package Config::Any::JSON; use strict; use warnings; use base 'Config::Any::Base'; =head1 NAME Config::Any::JSON - Load JSON config files =head1 DESCRIPTION Loads JSON files. Example: { "name": "TestApp", "Controller::Foo": { "foo": "bar" }, "Model::Baz": { "qux": "xyzzy" } } =head1 METHODS =head2 extensions( ) return an array of valid extensions (C, C). =cut sub extensions { return qw( json jsn ); } =head2 load( $file ) Attempts to load C<$file> as a JSON file. =cut sub load { my $class = shift; my $file = shift; open( my $fh, $file ) or die $!; my $content = do { local $/; <$fh> }; close $fh; if ( eval { require JSON::DWIW } ) { my $decoder = JSON::DWIW->new; my ( $data, $error ) = $decoder->from_json( $content ); die $error if $error; return $data; } elsif ( eval { require JSON::XS } ) { my $decoder = JSON::XS->new->relaxed; return $decoder->decode( $content ); } elsif ( eval { require JSON::Syck } ) { return JSON::Syck::Load( $content ); } elsif ( eval { require JSON::PP; JSON::PP->VERSION( 2 ); } ) { my $decoder = JSON::PP->new->relaxed; return $decoder->decode( $content ); } require JSON; if ( eval { JSON->VERSION( 2 ) } ) { return JSON::from_json( $content ); } else { return JSON::jsonToObj( $content ); } } =head2 requires_any_of( ) Specifies that this modules requires one of, L, L, L or L in order to work. =cut sub requires_any_of { 'JSON::DWIW', 'JSON::XS', 'JSON::Syck', 'JSON::PP', 'JSON' } =head1 AUTHOR Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE Copyright 2006-2016 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO =over 4 =item * L =item * L =item * L =item * L =item * L =item * L =back =cut 1;