use strict;\r
use warnings;\r
\r
-use File::Slurp;\r
-\r
=head1 NAME\r
\r
Catalyst::Plugin::ConfigLoader::JSON - Load JSON config files\r
"name": "TestApp",\r
"Controller::Foo": {\r
"foo": "bar"\r
+ },\r
+ "Model::Baz": {\r
+ "qux": "xyzzy"\r
}\r
}\r
\r
my $class = shift;\r
my $file = shift;\r
\r
- my $content = read_file( $file );\r
+ open( my $fh, $file ) or die $!;\r
+ my $content = do { local $/; <$fh> };\r
+ close $fh;\r
\r
eval { require JSON::Syck; };\r
if( $@ ) {\r
\r
=item * L<Catalyst>\r
\r
-=item * <Catalyst::Plugin::ConfigLoader>\r
+=item * L<Catalyst::Plugin::ConfigLoader>\r
+\r
+=item * L<JSON>\r
+\r
+=item * L<JSON::Syck>\r
\r
=back\r
\r