X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny%2FYAML.pm;h=c852ef49da10382a3bd13cc476995398492aaa17;hp=c2f852df98029e43301097bed6e8d07fc1907ce2;hb=c793253e5f2ad3ca9d60e96e07a5d87fa344ec31;hpb=d49610ab8c8f7a8fa979a60fa75eb20ae690135b diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index c2f852d..c852ef4 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -43,6 +43,11 @@ 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 $!; @@ -62,7 +67,7 @@ order to work. =cut -sub requires_any_of { [ 'YAML::Syck', '0.70' ], 'YAML' } +sub requires_any_of { 'YAML::XS', [ 'YAML::Syck', '0.70' ], 'YAML' } =head1 AUTHOR @@ -70,7 +75,7 @@ Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE -Copyright 2007 by Brian Cassidy +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.