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=46060c4b3e2cc4791f9e35291f37f108ca6d3ded;hp=c9b979fa37e3d6145f263ed671c6037b70122f24;hb=c793253e5f2ad3ca9d60e96e07a5d87fa344ec31;hpb=72628dc786ef43d546023d6f17a86c3f5edeb21a diff --git a/lib/Config/Any/XML.pm b/lib/Config/Any/XML.pm index c9b979f..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,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 @@ -92,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.