package Config::Any::YAML; use strict; use warnings; use base 'Config::Any::Base'; =head1 NAME Config::Any::YAML - Load YAML config files =head1 DESCRIPTION Loads YAML files. Example: --- name: TestApp Controller::Foo: foo: bar Model::Baz: qux: xyzzy =head1 METHODS =head2 extensions( ) return an array of valid extensions (C, C). =cut sub extensions { return qw( yml yaml ); } =head2 load( $file ) Attempts to load C<$file> as a YAML file. =cut sub load { my $class = shift; my $file = shift; eval { require YAML::XS }; unless ( $@ ) { return YAML::XS::LoadFile( $file ); } eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; unless ( $@ ) { open( my $fh, $file ) or die $!; my $content = do { local $/; <$fh> }; close $fh; return YAML::Syck::Load( $content ); } require YAML; return YAML::LoadFile( $file ); } =head2 requires_any_of( ) Specifies that this modules requires one of L (0.70) or L in order to work. =cut sub requires_any_of { 'YAML::XS', [ 'YAML::Syck', '0.70' ], 'YAML' } =head1 AUTHOR Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE Copyright 2006-2009 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO =over 4 =item * L =item * L =item * L =item * L =back =cut 1;