File Coverage

blib/lib/Lingua/Stem/UniNE.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	45	45	100.0

package Lingua::Stem::UniNE;

use v5.8.1;
use utf8;
use Carp;

use Moo;
use namespace::clean;

our $VERSION = '0.08';

my @languages  = qw( bg cs de fa );
my @aggressive = qw( cs de );

my %is_language    = map { $_ => 1 } @languages;
my %has_aggressive = map { $_ => 1 } @aggressive;

has language => (
    is       => 'rw',
    isa      => sub { croak "Invalid language '$_[0]'"
                      unless $is_language{$_[0]} },
    coerce   => sub { defined $_[0] ? lc $_[0] : '' },
    trigger  => sub { $_[0]->_clear_stemmer },
    required => 1,
);

has aggressive => (
    is      => 'rw',
    coerce  => sub { !!$_[0] },
    trigger => sub { $_[0]->_clear_stemmer },
    default => 0,
);

has _stemmer => (
    is      => 'rw',
    builder => '_build_stemmer',
    clearer => '_clear_stemmer',
    lazy    => 1,
);

sub _build_stemmer {
    my $self = shift;
    my $language = uc $self->language;
    my $function = 'stem';

    if ($self->aggressive && $has_aggressive{$self->language}) {
        $function .= '_aggressive';
    }

    require "Lingua/Stem/UniNE/$language.pm";
    $self->_stemmer( \&{"Lingua::Stem::UniNE::${language}::${function}"} );
}

sub languages {
    return @languages;
}

sub stem {
    my $self = shift;
    my @stems = map { $self->_stemmer->($_) } @_;

    return wantarray ? @stems : pop @stems;
}

1;

__END__