fix up slurp idiom

[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 a820535..2cdab4e 100644 (file)
--- a/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
+++ b/lib/Catalyst/Plugin/ConfigLoader/JSON.pm
@@ -40,9 +40,8 @@ sub load {
     my $class = shift;\r
     my $file  = shift;\r
 \r
-    my $content;\r
-    open(my $fh, $file) or die $!;\r
-    { local $/; $content = <$fh> }\r
+    open( my $fh, $file ) or die $!;\r
+    my $content = do { local $/; $content = <$fh> };\r
     close $fh;\r
 \r
     eval { require JSON::Syck; };\r