X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FWitness.pm;h=ab5b2f42f5839d0ad350264d511234ff5562ef2e;hb=428bcf0bc79f77a7857b21ef881708faa792e33a;hp=b3248e405ba5904e498283273052ef3291136c04;hpb=6352885679bcdd3fee8ac1d79f2a981a713db461;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index b3248e4..ab5b2f4 100644
--- 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 {