use strict;\r
use warnings;\r
\r
-use File::Slurp;\r
-\r
=head1 NAME\r
\r
Catalyst::Plugin::ConfigLoader::YAML - Load YAML config files\r
name: TestApp\r
Controller::Foo:\r
foo: bar\r
+ Model::Baz:\r
+ qux: xyzzy\r
+ \r
\r
=head1 METHODS\r
\r
return YAML::LoadFile( $file );\r
}\r
else {\r
- my $content = read_file( $file );\r
+ open( my $fh, $file ) or die $!;\r
+ my $content = do { local $/; <$fh> };\r
+ close $fh;\r
return YAML::Syck::Load( $content );\r
}\r
}\r
\r
=item * L<Catalyst::Plugin::ConfigLoader>\r
\r
+=item * L<YAML>\r
+\r
+=item * L<YAML::Syck>\r
+\r
=back\r
\r
=cut\r