File Coverage

blib/lib/Unicode/Emoji/E4U.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch			n/a
condition			n/a
subroutine	9	10	90.0
pod			n/a
total	32	34	94.1

=head1 NAME

Unicode::Emoji::E4U - Emoji mappings based on emoji4unicode project

=head1 SYNOPSIS

    use Unicode::Emoji::E4U;

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

    # fetch data files from Google Code (default)
    $e4u->datadir('http://emoji4unicode.googlecode.com/svn/trunk/data/');

    # or load from local cached files
    $e4u->datadir('data');

    my $docomo   = $e4u->docomo;    # Unicode::Emoji::DoCoMo instance
    my $kddi     = $e4u->kddi;      # Unicode::Emoji::KDDI instance
    my $softbank = $e4u->softbank;  # Unicode::Emoji::SoftBank instance
    my $google   = $e4u->google;    # Unicode::Emoji::Google instance

    my $kddiweb  = $e4u->kddiweb;   # alias to $e4u->kddi

=head1 DESCRIPTION

This module provides emoji picture characters cross-mapping table
base on emoji4unicode, Emoji for Unicode, project on Google Code:
L

This has the following accessor methods.

=head2 datadir

To fetch data files from emoji4unicode project repository on Google Code. (default)

    $e4u->datadir('http://emoji4unicode.googlecode.com/svn/trunk/data/');

To load data files cached on local path.

    $e4u->datadir('data');

=head2 treepp

This returns L instance to parse data files.

    $e4u->treepp->set(user_agent => 'Mozilla/4.0 (compatible; ...)');

=head2 docomo

This returns L instance.

=head2 kddi

This returns L instance.

=head2 softbank

This returns L instance.

=head2 google

This returns L instance.

=head2 kddiweb

This returns L instance as an alias for C.

=head1 LINKS

=over 4

=item * Subversion Trunk

L

=item * Project Hosting on Google Code

L

=item * Google Groups and some Japanese documents

L

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * Search CPAN

L

=back

=head1 AUTHOR

Yusuke Kawasaki, L

=head1 SEE ALSO

L

=head1 COPYRIGHT

Copyright 2009 Yusuke Kawasaki, all rights reserved.

=cut

package Unicode::Emoji::E4U;
use Unicode::Emoji::Google;
use Unicode::Emoji::DoCoMo;
use Unicode::Emoji::KDDI;
use Unicode::Emoji::SoftBank;
use Any::Moose;
extends 'Unicode::Emoji::Base';
has google   => (is => 'rw', isa => 'Unicode::Emoji::Google',   lazy_build => 1);
has docomo   => (is => 'rw', isa => 'Unicode::Emoji::DoCoMo',   lazy_build => 1);
has kddi     => (is => 'rw', isa => 'Unicode::Emoji::KDDI',     lazy_build => 1);
has kddiweb  => (is => 'rw', isa => 'Unicode::Emoji::KDDI',     lazy_build => 1);
has softbank => (is => 'rw', isa => 'Unicode::Emoji::SoftBank', lazy_build => 1);

our $VERSION = '0.03';

sub _build_google {
    my $self = shift;
    Unicode::Emoji::Google->new($self->clone_config);
}

sub _build_docomo {
    my $self = shift;
    Unicode::Emoji::DoCoMo->new($self->clone_config);
}

sub _build_kddi {
    my $self = shift;
    Unicode::Emoji::KDDI->new($self->clone_config);
}

sub _build_kddiweb {
    $_[0]->kddi;        # alias
}

sub _build_softbank {
    my $self = shift;
    Unicode::Emoji::SoftBank->new($self->clone_config);
}

__PACKAGE__->meta->make_immutable;