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' );
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 {
return @wits;
}
+=head2 hypotheticals
+
+Returns a list of the hypothetical witnesses represented in the stemma.
+
+=cut
+
sub hypotheticals {
my $self = shift;
my @wits = grep
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
=over
+=item * Figure out how to serialize a witness
+
=item * Support encodings other than UTF-8
=back
}
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();