1 package Catalyst::Plugin::ConfigLoader::JSON;
\r
8 Catalyst::Plugin::ConfigLoader::JSON - Load JSON config files
\r
12 Loads JSON files. Example:
\r
16 "Controller::Foo": {
\r
23 =head2 extensions( )
\r
25 return an array of valid extensions (C<json>, C<jsn>).
\r
30 return qw( json jsn );
\r
33 =head2 load( $file )
\r
35 Attempts to load C<$file> as a JSON file.
\r
44 open(my $fh, $file) or die $!;
\r
45 { local $/; $content = <$fh> }
\r
48 eval { require JSON::Syck; };
\r
52 return jsonToObj( $content );
\r
55 return JSON::Syck::Load( $content );
\r
63 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
\r
67 =head1 COPYRIGHT AND LICENSE
\r
69 Copyright 2006 by Brian Cassidy
\r
71 This library is free software; you can redistribute it and/or modify
\r
72 it under the same terms as Perl itself.
\r
80 =item * L<Catalyst::Plugin::ConfigLoader>
\r