X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FConfigLoader%2FJSON.pm;h=1c100ce77acaf2d2bf46db3606b3c2c0890f0606;hb=b773e0786fdcf35af131fc795b2df4fcc85e4e8b;hp=a6268c9ea8ecb7683d2c81bbbd543dc3346eb160;hpb=d6277728a99503a632fec6c5bed6b5b23db122cc;p=catagits%2FCatalyst-Plugin-ConfigLoader.git

diff --git a/lib/Catalyst/Plugin/ConfigLoader/JSON.pm b/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
index a6268c9..1c100ce 100644
--- a/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
+++ b/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
@@ -3,8 +3,6 @@ package Catalyst::Plugin::ConfigLoader::JSON;
 use strict;
 use warnings;
 
-use File::Slurp;
-
 =head1 NAME
 
 Catalyst::Plugin::ConfigLoader::JSON - Load JSON config files
@@ -17,6 +15,9 @@ Loads JSON files. Example:
         "name": "TestApp",
         "Controller::Foo": {
             "foo": "bar"
+        },
+        "Model::Baz": {
+            "qux": "xyzzy"
         }
     }
 
@@ -42,7 +43,9 @@ sub load {
     my $class = shift;
     my $file  = shift;
 
-    my $content = read_file( $file );
+    open( my $fh, $file ) or die $!;
+    my $content = do { local $/; <$fh> };
+    close $fh;
 
     eval { require JSON::Syck; };
     if( $@ ) {
@@ -78,6 +81,10 @@ it under the same terms as Perl itself.
 
 =item * L<Catalyst::Plugin::ConfigLoader>
 
+=item * L<JSON>
+
+=item * L<JSON::Syck>
+
 =back
 
 =cut