1 package Text::Tradition::Language::Armenian;
6 use parent qw/ Text::Tradition::Language::Perseus /;
10 Text::Tradition::Language::Armenian - language-specific module for Armenian
14 Implements morphology lookup for Armenian (Grabar) words in context. This module
15 depends on the Lingua::Morph::Perseus module for access to PhiloLogic database data.
19 =head2 lemmatize( $text )
21 Evaluates the string using Treetagger and Perseus, and returns the results.
26 use_ok( 'Text::Tradition::Language::Armenian' );
28 eval "use Lingua::Morph::Perseus";
32 skip "No Armenian test data yet";
34 my $trad = Text::Tradition->new(
35 'language' => 'Armenian',
36 'file' => 't/data/legendfrag.xml',
40 foreach my $r ( $trad->collation->readings ) {
42 ok( $r->has_lexemes, "Reading $r has one or more lexemes" );
43 my @lex = $r->lexemes;
44 my $lexstr = join( '', map { $_->string } @lex );
45 my $textstr = $r->text;
47 is( $textstr, $lexstr, "Lexemes for reading $r match the reading" );
48 foreach my $l ( @lex ) {
49 next unless $l->matches;
50 next if $l->is_disambiguated;
51 printf( "Ambiguous lexeme %s for reading %s:\n\t%s\n", $l->string, $r->id,
52 join( "\n\t", map { $_->lemma . ': ' . $_->morphology->to_string } $l->matching_forms ) );
56 is( $ambig, 4, "Found 4 ambiguous forms as expected" );
66 return __PACKAGE__->perseus_lemmatize( @_ );
70 return __PACKAGE__->perseus_reading_lookup( @_ );