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=8a999b5cb4aa2dfc8ef90120707cceaedd4e9456;hp=f5d680dddfbd59aa353bdeb11c90f04e63223124;hb=48e4a267ac83f85a46ee54c53052f8831752acac;hpb=f0e3c2214342d0d8a8839009b8b9c7e6bfbc7ab2 diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index f5d680d..8a999b5 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -41,8 +41,8 @@ sub load { my $class = shift; my $file = shift; - eval { require YAML::Syck; }; - if( $@ ) { + eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; + if ( $@ ) { require YAML; return YAML::LoadFile( $file ); } @@ -54,17 +54,26 @@ sub load { } } -=head1 AUTHOR +=head2 is_supported( ) -=over 4 +Returns true if either L or L is available. -=item * Brian Cassidy Ebricas@cpan.orgE +=cut -=back +sub is_supported { + eval { require YAML::Syck; }; + return 1 unless $@; + eval { require YAML; }; + return $@ ? 0 : 1; +} + +=head1 AUTHOR + +Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE -Copyright 2006 by Brian Cassidy +Copyright 2007 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.