remerge into trunk

[catagits/Catalyst-Plugin-ConfigLoader.git] / lib / Catalyst / Plugin / ConfigLoader / JSON.pm

diff --git a/lib/Catalyst/Plugin/ConfigLoader/JSON.pm b/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
index 041e55f..1c100ce 100644 (file)
--- 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;\r
 use warnings;\r
 \r
-use File::Slurp;\r
-\r
 =head1 NAME\r
 \r
 Catalyst::Plugin::ConfigLoader::JSON - Load JSON config files\r
@@ -17,6 +15,9 @@ Loads JSON files. Example:
         "name": "TestApp",\r
         "Controller::Foo": {\r
             "foo": "bar"\r
+        },\r
+        "Model::Baz": {\r
+            "qux": "xyzzy"\r
         }\r
     }\r
 \r
@@ -42,7 +43,9 @@ sub load {
     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
@@ -76,7 +79,11 @@ it under the same terms as Perl itself.
 \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