File Coverage

blib/lib/Lingua/JA/Alphabet/Yomi.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	6	66.6
condition	3	4	75.0
subroutine	8	8	100.0
pod	1	1	100.0
total	48	51	94.1

package Lingua::JA::Alphabet::Yomi;
use strict;
use warnings;
our $VERSION = '0.02';

use utf8;
use Carp;
use Unicode::Japanese;

use base 'Exporter';
our @EXPORT_OK = qw( alphabet2yomi );

our $alphabet2yomi = {
    en => {qw(
        A エー B ビー C シー D ディー E イー F エフ G ジー H エッチ I アイ
        J ジェイ K ケー L エル M エム N エヌ O オー P ピー Q キュー R アール
        S エス T ティー U ユー V ブイ W ダブリュー X エックス Y ワイ Z ゼット
    )},

    fr => {qw(
        A アー B ベー C セー D デー E ウー F エフ G ジェー H アッシュ I イー
        J ジー K カー L エル M エム N エヌ O オー P ペー Q クー R エル
        S エス T テー U ユー V ヴェー W ドゥブラ X イクス Y イグレッグ Z ゼド
    )},

    it => {qw(
        A アー B ビー C チー D ディー E エー F エッフェ G ジー H アッカ I イー
        J イルンガ K カッパ L エッレ M エンメ N エンネ O オー P ピー Q クー R エッレ
        S エッセ T ティー U ウー V ヴー W ドッピオヴ X イクス Y イプシロン Z ゼータ
    )},

    de => {qw(
        A アー B ベー C ツェー D デー E エー F エフ G ゲー H ハー I イー
        J ヨット K カー L エル M エム N エヌ O オー P ペー Q クー R エール
        S エス T テー U ウー V ファウ W ヴェー X イクス Y ユプスィロン Z ツェット
    )},
};

sub alphabet2yomi {
    my $class = shift if $_[0] eq __PACKAGE__; ## no critic
    my ($text, $lang) = @_;

    $text ||= "";
    $lang = lc $lang || 'en';

    croak "lang:$lang is not supported"
        unless exists $alphabet2yomi->{$lang};

    $text =~ s{(\p{Latin})}{
        my $char = $1;
        my $work = Unicode::Japanese->new($char);
           $work = uc $work->z2hAlpha->getu;

        $alphabet2yomi->{$lang}{$work} || $char;
    }ge;

    $text;
}

1;
__END__