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=c9b979fa37e3d6145f263ed671c6037b70122f24;hb=dcfb1d1d1a544d27a82cb174168df23abc539acb;hpb=72628dc786ef43d546023d6f17a86c3f5edeb21a diff --git a/lib/Config/Any/XML.pm b/lib/Config/Any/XML.pm index c9b979f..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,24 @@ 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 + +=head2 Strict Mode + +If, by some chance, L has already been loaded with the strict +flag turned on, then you will likely get errors as warnings will become +fatal exceptions and certain arguments to XMLin() will no longer be optional. + +See L for +more information. =head1 AUTHORS