use warnings;
use Module::Load;
use parent qw/ Text::Tradition::Language::Perseus /;
+use Text::Tradition::Language::Base qw/ unicode_regularize /;
=head1 NAME
Evaluates the string using Treetagger and Perseus, and returns the results.
+=head2 reading_lookup( $word )
+
+Returns a single-word morphological lookup of the given word using Perseus.
+
=begin testing
use Text::Tradition;
return __PACKAGE__->perseus_reading_lookup( @_ );
}
+=head2 regularize( $text )
+
+Returns a regularized form of the reading for the purposes of collation.
+
+=cut
+
+sub regularize {
+ return unicode_regularize( @_ );
+}
+
1;