nicer fix to ConfigLoader issue

[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..248543b 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
@@ -42,7 +40,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 +76,7 @@ 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
 =back\r
 \r