made the local suffix overrideable as per robkinyon's suggestion

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

diff --git a/lib/Catalyst/Plugin/ConfigLoader/YAML.pm b/lib/Catalyst/Plugin/ConfigLoader/YAML.pm
index f1f6588..f1e6a86 100644 (file)
--- a/lib/Catalyst/Plugin/ConfigLoader/YAML.pm
+++ b/lib/Catalyst/Plugin/ConfigLoader/YAML.pm
@@ -15,6 +15,9 @@ Loads YAML files. Example:
     name: TestApp\r
     Controller::Foo:\r
         foo: bar\r
+    Model::Baz:\r
+        qux: xyzzy\r
+    \r
 \r
 =head1 METHODS\r
 \r
@@ -44,9 +47,8 @@ sub load {
         return YAML::LoadFile( $file );\r
     }\r
     else {\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 $/; <$fh> };\r
         close $fh;\r
         return YAML::Syck::Load( $content );\r
     }\r
@@ -75,6 +77,10 @@ it under the same terms as Perl itself.
 \r
 =item * L<Catalyst::Plugin::ConfigLoader>\r
 \r
+=item * L<YAML>\r
+\r
+=item * L<YAML::Syck>\r
+\r
 =back\r
 \r
 =cut\r