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
26 =head2 extensions( )
\r
28 return an array of valid extensions (C<json>, C<jsn>).
\r
33 return qw( json jsn );
\r
36 =head2 load( $file )
\r
38 Attempts to load C<$file> as a JSON file.
\r
46 open( my $fh, $file ) or die $!;
\r
47 my $content = do { local $/; <$fh> };
\r
50 eval { require JSON::Syck; };
\r
54 return jsonToObj( $content );
\r
57 return JSON::Syck::Load( $content );
\r
65 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
\r
69 =head1 COPYRIGHT AND LICENSE
\r
71 Copyright 2006 by Brian Cassidy
\r
73 This library is free software; you can redistribute it and/or modify
\r
74 it under the same terms as Perl itself.
\r
82 =item * L<Catalyst::Plugin::ConfigLoader>
\r
86 =item * L<JSON::Syck>
\r