minor cleanup -- pass args to XML::Simple

[p5sagit/Config-Any.git] / lib / Config / Any / XML.pm

diff --git a/lib/Config/Any/XML.pm b/lib/Config/Any/XML.pm
index 4660338..d5221c5 100644 (file)
--- a/lib/Config/Any/XML.pm
+++ b/lib/Config/Any/XML.pm
@@ -42,12 +42,13 @@ Attempts to load C<$file> as an XML file.
 sub load {
     my $class = shift;
     my $file  = shift;
+    my $args  = shift || {};
 
     require XML::Simple;
-    XML::Simple->import;
-    my $config = XMLin( 
+    my $config = XML::Simple::XMLin( 
         $file, 
         ForceArray => [ qw( component model view controller ) ],
+        %$args
     );
 
     return $class->_coerce($config);