root/lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram/lib/Encode/JP/Mobile/DocomoUTF8.pm @ 1510

package Encode::JP::Mobile::DocomoUTF8;
use strict;
use base qw(Encode::Encoding);
__PACKAGE__->Define(qw(x-utf8-docomo));

use Encode::Alias;
define_alias('x-utf8-imode' => 'x-utf8-docomo');

sub decode($$;$) {
    my($self, $char, $check) = @_;
    my $str = Encode::decode('utf8', $char);
    $_[1] = $str if $check;
    $str;
}

sub encode($$;$) {
    my($self, $str, $check) = @_;
    my $res = Encode::encode('x-utf8-docomo-pictogram', $str, sub {
        Encode::encode('utf8', chr shift);
    });
    $_[1] = $res if $check;
    $res;
}

1;