package Treex::Block::W2A::EN::TagMorphoDiTa;
$Treex::Block::W2A::EN::TagMorphoDiTa::VERSION = '2.20151102';
use strict;
use warnings;
use Moose;
use Treex::Core::Common;
extends 'Treex::Block::W2A::TagMorphoDiTa';

has '+model' => ( default => 'data/models/morphodita/en/english-morphium-wsj-140407.tagger' );

has 'negative_prefixes_in_lemma' => (
    is => 'ro',
    isa => 'Bool',
    default => 0,
    documentation => 'Some English MorphoDiTa models lemmatize words with negative prefixes'
                   . ' e.g. as "unable"->"able^un". Do we want to have such lemmas? Default is false.',
);


after 'process_atree' => sub {
    my ($self, $atree) = @_;
    if ($self->lemmatize && $self->model !~ /no_negation.tagger$/ && !$self->negative_prefixes_in_lemma){
        foreach my $anode ($atree->get_descendants()){
            my ($lemma, $prefix) = split /\^/, $anode->lemma;
            if (defined $prefix){
                $anode->set_lemma($lemma);
                $anode->set_iset(negativeness => 'neg');
            }
        }
    }
    return;
};

1;

__END__

=pod

=encoding utf-8

=head1 NAME

Treex::Block::W2A::EN::TagMorphoDiTa

=head1 VERSION

version 2.20151102

=head1 DESCRIPTION

This is just a small modification of L<Treex::Block::W2A::TagMorphoDiTa> which adds the path to the
default model for English.

=head1 AUTHORS

Martin Popel <popel@ufal.mff.cuni.cz>

=head1 COPYRIGHT AND LICENSE

Copyright © 2014 by Institute of Formal and Applied Linguistics, Charles University in Prague

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.