From: Tara L Andrews <tla@mit.edu>
Date: Mon, 25 Jun 2012 20:54:18 +0000 (+0200)
Subject: make single-word lemmatization work
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0f883e0c0ced1a5b0d86bfd840c08fdcf796fdd;p=scpubgit%2Fstemmatology.git

make single-word lemmatization work
---

diff --git a/lib/Text/Tradition/Language/Perseus.pm b/lib/Text/Tradition/Language/Perseus.pm
index 9bf71d8..ebbcd54 100644
--- a/lib/Text/Tradition/Language/Perseus.pm
+++ b/lib/Text/Tradition/Language/Perseus.pm
@@ -3,7 +3,8 @@ package Text::Tradition::Language::Perseus;
 use strict;
 use warnings;
 use Module::Load;
-use Text::Tradition::Language::Base qw/ lemmatize_treetagger lfs_morph_tags /;
+use Text::Tradition::Language::Base qw/ lemmatize_treetagger reading_lookup_treetagger
+	 lfs_morph_tags /;
 use TryCatch;
 
 =head1 NAME
@@ -45,7 +46,12 @@ match for the word string(s) in the morphology DB.
 
 sub perseus_reading_lookup {
 	my( $self, @words ) = @_;
-	return map { $self->_perseus_lookup_str( $_ ) } @words;
+	my %opts = ( 
+		'language' => $self->_get_lang(),
+		'callback' => sub { _perseus_lookup_str( $self, @_ ) },
+		'path' => \@words,
+		);
+	return reading_lookup_treetagger( %opts );
 }
 
 =head2 morphology_tags
@@ -106,10 +112,11 @@ sub _perseus_lookup_tt {
 }
 
 sub _perseus_lookup_str {
-	my( $self, $orig ) = @_;
+	my $self = shift;
+	my ( $orig, $pos, $lemma ) = split( /\t/, $_[0] );
 	$self->_morph_connect();
 	return unless $self::dbhandle;
-	# Simple morph DB lookup, and return the results.
+	# Simple morph DB lookup, and return the results. Disregard the treetagger.
 	my $result = $self::dbhandle->lexicon_lookup( $orig );
 	return map { $self->_wordform_from_row( $_ ) } @{$result->{'objects'}};
 }