use MeCab;
use MeCab::Tagger;

my Str $text = "すもももももももものうち。";
my $mecab-tagger = MeCab::Tagger.new('-C');
loop ( my MeCab::Node $node = $mecab-tagger.parse-tonode($text); $node; $node = $node.next ) {
       say ($node.surface, $node.feature).join("\t");
}

# OUTPUT«
#         BOS/EOS,*,*,*,*,*,*,*,*
# すもも  名詞,一般,*,*,*,*,すもも,スモモ,スモモ
# も      助詞,係助詞,*,*,*,*,も,モ,モ
# もも    名詞,一般,*,*,*,*,もも,モモ,モモ
# も      助詞,係助詞,*,*,*,*,も,モ,モ
# もも    名詞,一般,*,*,*,*,もも,モモ,モモ
# の      助詞,連体化,*,*,*,*,の,ノ,ノ
# うち    名詞,非自立,副詞可能,*,*,*,うち,ウチ,ウチ
# 。      記号,句点,*,*,*,*,。,。,。
#         BOS/EOS,*,*,*,*,*,*,*,*
# »

use MeCab;
use MeCab::Lattice;
use MeCab::Tagger;
use MeCab::Model;

my MeCab::Model $model .= new;
my MeCab::Tagger $tagger = $model.create-tagger;
my MeCab::Lattice $lattice = $model.create-lattice;
$lattice.add-request-type(MECAB_NBEST);
$lattice.sentence("今日も");

if $tagger.parse($lattice) {
   say $lattice.nbest-tostr(2);
}

# OUTPUT«
# 今日    名詞,副詞可能,*,*,*,*,今日,キョウ,キョー
# も      助詞,係助詞,*,*,*,*,も,モ,モ
# EOS
# 今日    名詞,副詞可能,*,*,*,*,今日,コンニチ,コンニチ
# も      助詞,係助詞,*,*,*,*,も,モ,モ
# EOS
# »