NAME

Unicode::Emoji::KDDI - Emoji for au by KDDI

SYNOPSIS

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

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

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

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

DEFINITION

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

AUTHOR

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

SEE ALSO

Unicode::Emoji::E4U

COPYRIGHT

Copyright 2009 Yusuke Kawasaki, all rights reserved.