load XML::LibXML only when required; handle global relationships more correctly;...

[scpubgit/stemmatology.git] / lib / Text / Tradition / Witness.pm

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index 3113e54..ab5b2f4 100644 (file)
--- a/lib/Text/Tradition/Witness.pm
+++ b/lib/Text/Tradition/Witness.pm
@@ -348,6 +348,7 @@ sub _init_from_xmldesc {
                }
                $xmlobj = $self->object;
        } else {
+               require XML::LibXML;
                my $parser = XML::LibXML->new();
                my $parsersub = $self->has_file ? 'parse_file' : 'parse_string';
                try {