From: Tara L Andrews <tla\@mit.edu>
Date: Tue, 17 Apr 2012 08:22:38 +0000 (+0200)
Subject: housekeeping, a bit of POD  addition
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06e7cbc7f347e9a50ef98bfb0ab92de31b398961;p=scpubgit%2Fstemmatology.git

housekeeping, a bit of POD  addition
---

diff --git a/Makefile.PL b/Makefile.PL
index 944bc0a..fd5dd44 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -24,7 +24,7 @@ requires( 'Moose' );
 requires( 'Moose::Util::TypeConstraints' );
 requires( 'StackTrace::Auto' );
 requires( 'Text::CSV' );
-requires( 'Text::TEI::Markup' );
+requires( 'Text::TEI::Markup' => '1.4' );
 requires( 'Throwable::X' );
 requires( 'TryCatch' );
 requires( 'XML::Easy::Syntax' );
diff --git a/lib/Text/Tradition/Collation/Reading.pm b/lib/Text/Tradition/Collation/Reading.pm
index d2d1fb7..6c15c4b 100644
--- a/lib/Text/Tradition/Collation/Reading.pm
+++ b/lib/Text/Tradition/Collation/Reading.pm
@@ -280,6 +280,18 @@ A few methods to try to tack on morphological information.
 
 Returns true if there is only one tag per lexeme in this reading.
 
+=head2 use_lexemes
+
+TBD
+
+=head2 add_morphological_tag
+
+TBD
+
+=head2 disambiguate
+
+TBD
+
 =cut
 
 sub use_lexemes {
diff --git a/lib/Text/Tradition/Stemma.pm b/lib/Text/Tradition/Stemma.pm
index ec17145..c711430 100644
--- a/lib/Text/Tradition/Stemma.pm
+++ b/lib/Text/Tradition/Stemma.pm
@@ -368,6 +368,12 @@ sub witnesses {
     return @wits;
 }
 
+=head2 hypotheticals
+
+Returns a list of the hypothetical witnesses represented in the stemma.
+
+=cut
+
 sub hypotheticals {
     my $self = shift;
     my @wits = grep 
diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index e9321f4..3113e54 100644
--- 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 
@@ -782,6 +787,8 @@ __PACKAGE__->meta->make_immutable;
 
 =over
 
+=item * Figure out how to serialize a witness
+
 =item * Support encodings other than UTF-8
 
 =back
diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 4728bbf..2d85544 100644
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -23,7 +23,7 @@ if( -e 'MANIFEST.SKIP' ) {
 }
 		
 foreach my $mod ( keys %mods ) {
-	pod_coverage_ok( $mod, { also_private => [ qw/ BUILD throw / ] } );
+	pod_coverage_ok( $mod, { also_private => [ qw/ TO_JSON BUILD throw / ] } );
 }
 
-done_testing();
\ No newline at end of file
+done_testing();