Acme-RandomEmoji

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    Acme::RandomEmoji - pick an emoji randomly

SYNOPSIS

DESCRIPTION

    Acme::RandomEmoji picks an emoji randomly.

    Emoji data is taken from:

    http://unicode.org/Public/emoji/latest/emoji-data.txt

    http://unicode.org/Public/emoji/latest/emoji-sequences.txt

    http://unicode.org/Public/emoji/latest/emoji-zwj-sequences.txt

SEE ALSO

    Full Emoji Data http://unicode.org/emoji/charts/full-emoji-list.html

COPYRIGHT AND LICENSE

    Copyright 2016 Shoichi Kaji <skaji@cpan.org>

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

    Note that this library uses emoji-data.txt, emoji-sequences.txt and
    emoji-zwj-sequences.txt, which have their own license. Please refer to
    http://www.unicode.org/copyright.html

author/RandomEmoji.pm  view on Meta::CPAN

<a href="https://raw.githubusercontent.com/shoichikaji/Acme-RandomEmoji/master/author/screenshot.png"><img src="https://raw.githubusercontent.com/shoichikaji/Acme-RandomEmoji/master/author/screenshot.png" alt="screenshot"></a>

=head1 DESCRIPTION

Acme::RandomEmoji picks an emoji randomly.

Emoji data is taken from:

=over 4

=item L<http://unicode.org/Public/emoji/latest/emoji-data.txt>

=item L<http://unicode.org/Public/emoji/latest/emoji-sequences.txt>

=item L<http://unicode.org/Public/emoji/latest/emoji-zwj-sequences.txt>

=back

=head1 SEE ALSO

Full Emoji Data L<http://unicode.org/emoji/charts/full-emoji-list.html>

=head1 COPYRIGHT AND LICENSE

Copyright 2016 Shoichi Kaji <skaji@cpan.org>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

Note that this library uses emoji-data.txt, emoji-sequences.txt and emoji-zwj-sequences.txt,
which have their own license. Please refer to L<http://www.unicode.org/copyright.html>

=cut

author/generate.pl  view on Meta::CPAN

use Encode ();
use HTTP::Tiny;
use FindBin;
use Path::Tiny;
use File::Basename 'basename';
use Data::Dump ();
chdir $FindBin::Bin;

my $http = HTTP::Tiny->new;

my %url = map {; "http://unicode.org/Public/emoji/latest/$_" => undef } qw(
    emoji-data.txt
    emoji-zwj-sequences.txt
    emoji-sequences.txt
);

for my $url (sort keys %url) {
    warn "-> get $url\n";
    my $file = basename $url;
    my $res = $http->mirror($url, $file);
    die "$url: $res->{status}\n" unless $res->{success};

lib/Acme/RandomEmoji.pm  view on Meta::CPAN

<a href="https://raw.githubusercontent.com/shoichikaji/Acme-RandomEmoji/master/author/screenshot.png"><img src="https://raw.githubusercontent.com/shoichikaji/Acme-RandomEmoji/master/author/screenshot.png" alt="screenshot" style="max-width:100%;"></a>

=head1 DESCRIPTION

Acme::RandomEmoji picks an emoji randomly.

Emoji data is taken from:

=over 4

=item L<http://unicode.org/Public/emoji/latest/emoji-data.txt>

=item L<http://unicode.org/Public/emoji/latest/emoji-sequences.txt>

=item L<http://unicode.org/Public/emoji/latest/emoji-zwj-sequences.txt>

=back

=head1 SEE ALSO

Full Emoji Data L<http://unicode.org/emoji/charts/full-emoji-list.html>

=head1 COPYRIGHT AND LICENSE

Copyright 2016 Shoichi Kaji <skaji@cpan.org>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

Note that this library uses emoji-data.txt, emoji-sequences.txt and emoji-zwj-sequences.txt,
which have their own license. Please refer to L<http://www.unicode.org/copyright.html>

=cut