Lingua::JA::Regular::Unicode をつかって全角カナを半角カナに変換する

全角と半角が混在していて、アレだったのですが、以下のコードで一発でした。
"、。" 等の文字も変換されて問題ない状況でした。

use Lingua::JA::Regular::Unicode;

sub z2h { katakana_z2h($_[0]) }

$_->update({ name => z2h($_->name), description => z2h($_->description) })
    for ( $schema->resultset('Spec')->all );

もし管理画面とにらめっこしながら手作業で直していたとしたら、電脳コイルを見る時間が取れませんでした。
最高です。素晴らしすぎます。tokuhiromさんに感謝!!
tokuhirom++
(incf tokuhirom)