X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny%2FXML.pm;h=ed48589fa7af6d66ed135e2714da51807068c5fd;hp=ca2d55b76ddc38c57efdaf09f1368f5e02bc7ce6;hb=dcfb1d1d1a544d27a82cb174168df23abc539acb;hpb=4198bf8c36c5f90c71845bd2505d953d3422037e diff --git a/lib/Config/Any/XML.pm b/lib/Config/Any/XML.pm index ca2d55b..ed48589 100644 --- a/lib/Config/Any/XML.pm +++ b/lib/Config/Any/XML.pm @@ -3,6 +3,8 @@ package Config::Any::XML; use strict; use warnings; +use base 'Config::Any::Base'; + =head1 NAME Config::Any::XML - Load XML config files @@ -73,16 +75,13 @@ sub _coerce { $out; } -=head2 is_supported( ) +=head2 requires_all_of( ) -Returns true if L is available. +Specifies that this module requires L in order to work. =cut -sub is_supported { - eval { require XML::Simple; }; - return $@ ? 0 : 1; -} +sub requires_all_of { 'XML::Simple' } =head1 CAVEATS