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=2e800be448993734d248bf385d5deae47fdd99cd;hp=4a4b965b4bb0bac3258c9e0dcc44072bee24dba7;hb=dcfb1d1d1a544d27a82cb174168df23abc539acb;hpb=72628dc786ef43d546023d6f17a86c3f5edeb21a diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index 4a4b965..2e800be 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -3,6 +3,8 @@ package Config::Any::YAML; use strict; use warnings; +use base 'Config::Any::Base'; + =head1 NAME Config::Any::YAML - Load YAML config files @@ -41,7 +43,7 @@ sub load { my $class = shift; my $file = shift; - eval { require YAML::Syck; }; + eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; if ( $@ ) { require YAML; return YAML::LoadFile( $file ); @@ -54,18 +56,14 @@ sub load { } } -=head2 is_supported( ) +=head2 requires_any_of( ) -Returns true if either L or L is available. +Specifies that this modules requires one of L (0.70) or L in +order to work. =cut -sub is_supported { - eval { require YAML::Syck; }; - return 1 unless $@; - eval { require YAML; }; - return $@ ? 0 : 1; -} +sub requires_any_of { [ 'YAML::Syck', '0.70' ], 'YAML' } =head1 AUTHOR