introspect for morphology values; include these in help; make sure Perseus results...

[scpubgit/stemmatology.git] / lib / Text / Tradition / Language / English.pm

diff --git a/lib/Text/Tradition/Language/English.pm b/lib/Text/Tradition/Language/English.pm
index f477759..ea38a7f 100644 (file)
--- a/lib/Text/Tradition/Language/English.pm
+++ b/lib/Text/Tradition/Language/English.pm
@@ -2,7 +2,8 @@ package Text::Tradition::Language::English;
 
 use strict;
 use warnings;
-use Text::Tradition::Language::Base qw/ lemmatize_treetagger reading_lookup_treetagger /;
+use Text::Tradition::Language::Base qw/ lemmatize_treetagger reading_lookup_treetagger
+       lfs_morph_tags /;
 use TryCatch;
 
 =head1 NAME
@@ -59,6 +60,16 @@ sub reading_lookup {
        return reading_lookup_treetagger( %opts );
 }
 
+=head2 morphology_tags
+
+Return a data structure describing the available parts of speech and their attributes.
+
+=cut
+
+sub morphology_tags {
+       return lfs_morph_tags();
+}
+
 # Utility function to turn a TreeTagger result into a WordForm
 sub _parse_wordform {
        my $tagresult = shift;