X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FConfig%2FAny%2FXML.pm;h=46060c4b3e2cc4791f9e35291f37f108ca6d3ded;hb=10a054f4bf2592b7c2312bda2ba563aac8ddc7ae;hp=ca2d55b76ddc38c57efdaf09f1368f5e02bc7ce6;hpb=11501cf7c7fd46e8723c2de165a00e2f8deefc72;p=p5sagit%2FConfig-Any.git diff --git a/lib/Config/Any/XML.pm b/lib/Config/Any/XML.pm index ca2d55b..46060c4 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 @@ -103,7 +102,7 @@ Joel Bernstein Erataxis@cpan.orgE =head1 COPYRIGHT AND LICENSE -Copyright 2007 by Brian Cassidy +Copyright 2006-2009 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.