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=dd369fde2492d145f5b5fbd93f0f8443a6e76d89;hp=c852ef49da10382a3bd13cc476995398492aaa17;hb=10a054f4bf2592b7c2312bda2ba563aac8ddc7ae;hpb=c793253e5f2ad3ca9d60e96e07a5d87fa344ec31 diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index c852ef4..dd369fd 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -5,6 +5,8 @@ use warnings; use base 'Config::Any::Base'; +use Carp (); + =head1 NAME Config::Any::YAML - Load YAML config files @@ -48,6 +50,10 @@ sub load { return YAML::XS::LoadFile( $file ); } + Carp::carp + 'Use of YAML::Syck or YAML to parse config files is DEPRECATED. ' + . 'Please install YAML::XS for proper YAML support'; + eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; unless ( $@ ) { open( my $fh, $file ) or die $!; @@ -62,8 +68,8 @@ sub load { =head2 requires_any_of( ) -Specifies that this modules requires one of L (0.70) or L in -order to work. +Specifies that this modules requires one of L, L (0.70) or +L in order to work. =cut @@ -88,6 +94,8 @@ it under the same terms as Perl itself. =item * L +=item * L + =item * L =item * L