analysis script for upcoming presentation

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

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index e9321f4..ab5b2f4 100644 (file)
--- a/lib/Text/Tradition/Witness.pm
+++ b/lib/Text/Tradition/Witness.pm
@@ -119,6 +119,11 @@ Accessor method for the witness identifier.
 
 Accessor method for the general witness description.
 
+=head2 has_source
+
+Boolean method that returns a true value if the witness was created with a
+data source (that is, a file, string, or object to be parsed).
+
 =head2 is_layered
 
 Boolean method to note whether the witness has layers (e.g. pre-correction 
@@ -343,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 {
@@ -782,6 +788,8 @@ __PACKAGE__->meta->make_immutable;
 
 =over
 
+=item * Figure out how to serialize a witness
+
 =item * Support encodings other than UTF-8
 
 =back