fixing failed tests, requiring at least one XML backend if using seri…

…alizer
leto · Nov 3, 2010 · d5fb4ba · d5fb4ba
1 parent e9a3d20
commit d5fb4ba
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/Dancer/Serializer/XML.pm b/lib/Dancer/Serializer/XML.pm
@@ -22,7 +22,14 @@ sub to_xml {
 
 # class definition
 
-sub loaded { Dancer::ModuleLoader->load('XML::Simple') }
+sub loaded {
+    # we need either XML::Parser or XML::Sax too
+    Dancer::ModuleLoader->load('XML::Simple') &&
+        (
+          Dancer::ModuleLoader->load('XML::Parser') or
+          Dancer::ModuleLoader->load('XML::Sax')
+        );
+}
 
 sub init {
     my ($self) = @_;