File Coverage

blib/lib/Encode/JP/Mobile/Fallback.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	8	8	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	37	38	97.3

package Encode::JP::Mobile::Fallback;
use strict;
use warnings;
use Encode;
use Encode::JP::Mobile ':props';

sub Encode::JP::Mobile::FB_CHARACTER {
    my $check = @_ ? shift : Encode::FB_DEFAULT;

    return sub {
        my $code = shift;
        my $char = chr $code;
        my $fallback_name;
        if ($char =~ /^\p{InMobileJPPictograms}$/) {
            my $obj = Encode::JP::Mobile::Character->from_unicode($code);
            for (qw( I V E )) {
                my $f = $obj->fallback_name($_);
                $fallback_name = $f if defined $f;
            }
        }
        return defined $fallback_name
            ? encode('utf-8', $fallback_name)
            : encode('x-utf8-docomo', $char, $check);
            # using x-utf8-docomo for "utf8 but that has cp932 chars only"
    };
}

1;
__END__