view release on metacpan or  search on metacpan

lib/Lingua/XFST/Network.pm  view on Meta::CPAN

        $self->{side} = Lingua::XFST::Privates::LOWER;
    }

    return $self->_do_apply($string);
}

sub _do_apply {
    my ($self, $string) = @_;

    my $output = Lingua::XFST::Privates::apply_to_string($string, $self->{apply});
    return [split m/$splitter/o, $output];
}

# XXX: Looks like this doesn't free all the memory. Need to figure out how to
# fix that.
sub DESTROY {
    my ($self) = @_;

    Lingua::XFST::Privates::free_network($self->{net});
    Lingua::XFST::Privates::free_applyer($self->{applyer});
}