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 b3248e4..ab5b2f4 100644 (file)
--- a/lib/Text/Tradition/Witness.pm
+++ b/lib/Text/Tradition/Witness.pm
@@ -250,13 +250,6 @@ has 'sourcetype' => (
        required => 1, 
 );
 
-has 'source' => (
-       is => 'ro',
-       isa => 'Str',
-       predicate => 'has_old_source',
-       clearer => 'clear_old_source',
-);
-
 has 'file' => (
        is => 'ro',
        isa => 'Str',
@@ -355,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 {