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
43 open( my $fh, $file ) or die $!;
\r
44 my $content = do { local $/; <$fh> };
\r
47 eval { require JSON::Syck; };
\r
51 return jsonToObj( $content );
\r
54 return JSON::Syck::Load( $content );
\r
62 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
\r
66 =head1 COPYRIGHT AND LICENSE
\r
68 Copyright 2006 by Brian Cassidy
\r
70 This library is free software; you can redistribute it and/or modify
\r
71 it under the same terms as Perl itself.
\r
79 =item * L<Catalyst::Plugin::ConfigLoader>
\r
83 =item * L<JSON::Syck>
\r