view release on metacpan or  search on metacpan

lib/Acme/Lou.pm  view on Meta::CPAN

our @EXPORT_OK = qw/lou/;

sub lou {
    my $text = shift || "";
    return Acme::Lou->new->translate($text);
}

sub new {
    my $class = shift;
    my $self = bless {
        mecab_option => {
            userdic => dist_file('Acme-Lou', Text::Mecabist->encoding->name .'.dic'),
        },
        lou_rate => 100,
        @_,
    }, $class;
}

sub translate {
    my ($self, $text, $opt) = @_;