Lingua::JA::Kana

danさんがつくってたのをみたのでテストしてみた。
テストは適当ですけど。
個人的にこのモジュールはタイムリーだた。

Lingua::JA::Romajiを使うことが多かったんだけど、変換がすげー適当で、
（日本人が作ってないからってのもおおきいんだろけど）
泣けることがあったのでwktkでテストしてみた。

Lingua::JA::Romajiの何が泣けるかというと、
kanatoromajiで変換したものがromajitokanaでもどせないこと。
双方向変換できないのはいたい。

で、とりあえず超絶簡単にテストしてみた。

use strict;                                                                                                             
use warnings;                                                                                                           
use Lingua::JA::Kana;                                                                                                   
use Test::More qw/no_plan/;                                                                                             
                                                                                                                        
for my $kana (keys %Lingua::JA::Kana::Kata2Hepburn) {                                                                   
    is $kana , romaji2katakana(kana2romaji($kana));                                                                     
}

てすとこけますた。

「ハッチョウボリ」は双方向変換できたす。

でもcodereposにあげてもらっているので、いろいろ触ってみる予定。
厭きなければ。
coderepos++
dan++