Unicode::Emoji::SoftBank - Emoji for SoftBank Mobile

    use Unicode::Emoji::E4U;
    my $e4u = Unicode::Emoji::E4U->new;
    my $softbank = $e4u->softbank;

    my $e;
    $e = $softbank->list->[0];
    $e = $softbank->find(unicode => 'E04A');
    print "name_ja: ", $e->name_ja, "\n";
    print "number: ",  $e->number, "\n";
    print "unicode: ", $e->unicode, "\n";

    my $se = $e->softbank_emoji;
    print "is_alt: ",         $se->is_alt, "\n";
    print "unicode_string: ", $se->unicode_string, "\n";
    print "unicode_octets: ", $se->unicode_octets, "\n";
    print "cp932_string: ",   $se->cp932_string, "\n";
    print "cp932_octets: ",   $se->cp932_octets, "\n";

http://emoji4unicode.googlecode.com/svn/trunk/data/softbank/carrier_data.xml

Yusuke Kawasaki, http://www.kawa.net/

Unicode::Emoji::E4U

Copyright 2009 Yusuke Kawasaki, all rights reserved.