package HTML::ReplacePictogramMobileJp::DoCoMo;
use strict;
use warnings;
use HTML::ReplacePictogramMobileJp::Base;
use Encode;

filter utf8 => 'x-utf8-docomo', sub {
    unicode_property 'I';
    unicode_hex_cref 'I';
};

filter sjis => 'x-sjis-docomo', sub {
    unicode_property 'I';
    unicode_hex_cref 'I';

    s/&#([0-9]+);/
        my $original = $1;
        my $x = unpack 'U*', decode 'x-sjis-imode', pack 'H*', sprintf '%x', $original;
        callback($x, 'I')
    /gei;
};

1;