view release on metacpan or  search on metacpan

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

# THIS FILE IS AUTOMATICALLY GENERATED BY author/generate.pl
package Acme::RandomEmoji;
use strict;
use warnings;
use utf8;

use Exporter 'import';
our @EXPORT_OK = qw(random_emoji);
our $VERSION = '0.02';

our $EMOJI = [
  "#\x{FE0F}",
  "*\x{FE0F}",
  "0\x{FE0F}",
  "1\x{FE0F}",
  "2\x{FE0F}",
  "3\x{FE0F}",
  "4\x{FE0F}",
  "5\x{FE0F}",
  "6\x{FE0F}",
  "7\x{FE0F}",
  "8\x{FE0F}",
  "9\x{FE0F}",
  "\xA9\x{FE0F}",
  "\xAE\x{FE0F}",
  "\x{203C}",
  "\x{2049}",
  "\x{2122}",
  "\x{2139}",
  "\x{2194}",
  "\x{2195}",
  "\x{2196}",
  "\x{2197}",
  "\x{2198}",
  "\x{2199}",
  "\x{21A9}",
  "\x{21AA}",
  "\x{231A}",
  "\x{231B}",
  "\x{2328}",
  "\x{23CF}",
  "\x{23E9}",
  "\x{23EA}",
  "\x{23EB}",
  "\x{23EC}",
  "\x{23ED}",
  "\x{23EE}",
  "\x{23EF}",
  "\x{23F0}",
  "\x{23F1}",
  "\x{23F2}",
  "\x{23F3}",
  "\x{23F8}",
  "\x{23F9}",
  "\x{23FA}",
  "\x{24C2}",
  "\x{25AA}",
  "\x{25AB}",
  "\x{25B6}",
  "\x{25C0}",
  "\x{25FB}",
  "\x{25FC}",
  "\x{25FD}",
  "\x{25FE}",
  "\x{2600}",

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

  "\x{1F6B4}\x{1F3FC}",
  "\x{1F6B4}\x{1F3FD}",
  "\x{1F6B4}\x{1F3FE}",
  "\x{1F6B4}\x{1F3FF}",
  "\x{1F6B5}\x{1F3FB}",
  "\x{1F6B5}\x{1F3FC}",
  "\x{1F6B5}\x{1F3FD}",
  "\x{1F6B5}\x{1F3FE}",
  "\x{1F6B5}\x{1F3FF}",
  "\x{1F6B6}\x{1F3FB}",
  "\x{1F6B6}\x{1F3FC}",
  "\x{1F6B6}\x{1F3FD}",
  "\x{1F6B6}\x{1F3FE}",
  "\x{1F6B6}\x{1F3FF}",
  "\x{1F6C0}\x{1F3FB}",
  "\x{1F6C0}\x{1F3FC}",
  "\x{1F6C0}\x{1F3FD}",
  "\x{1F6C0}\x{1F3FE}",
  "\x{1F6C0}\x{1F3FF}",
  "\x{1F918}\x{1F3FB}",
  "\x{1F918}\x{1F3FC}",
  "\x{1F918}\x{1F3FD}",
  "\x{1F918}\x{1F3FE}",
  "\x{1F918}\x{1F3FF}",
  "\x{1F441}\x{200D}\x{1F5E8}",
  "\x{1F468}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F468}",
  "\x{1F468}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F48B}\x{200D}\x{1F468}",
  "\x{1F468}\x{200D}\x{1F468}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F468}\x{200D}\x{1F466}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F468}\x{200D}\x{1F467}",
  "\x{1F468}\x{200D}\x{1F468}\x{200D}\x{1F467}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F468}\x{200D}\x{1F467}\x{200D}\x{1F467}",
  "\x{1F468}\x{200D}\x{1F469}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F469}\x{200D}\x{1F466}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F469}\x{200D}\x{1F467}",
  "\x{1F468}\x{200D}\x{1F469}\x{200D}\x{1F467}\x{200D}\x{1F466}",
  "\x{1F468}\x{200D}\x{1F469}\x{200D}\x{1F467}\x{200D}\x{1F467}",
  "\x{1F469}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F468}",
  "\x{1F469}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F469}",
  "\x{1F469}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F48B}\x{200D}\x{1F468}",
  "\x{1F469}\x{200D}\x{2764}\x{FE0F}\x{200D}\x{1F48B}\x{200D}\x{1F469}",
  "\x{1F469}\x{200D}\x{1F469}\x{200D}\x{1F466}",
  "\x{1F469}\x{200D}\x{1F469}\x{200D}\x{1F466}\x{200D}\x{1F466}",
  "\x{1F469}\x{200D}\x{1F469}\x{200D}\x{1F467}",
  "\x{1F469}\x{200D}\x{1F469}\x{200D}\x{1F467}\x{200D}\x{1F466}",
  "\x{1F469}\x{200D}\x{1F469}\x{200D}\x{1F467}\x{200D}\x{1F467}",
  "\x{1F468}\x{200D}\x{2764}\x{200D}\x{1F468}",
  "\x{1F468}\x{200D}\x{2764}\x{200D}\x{1F48B}\x{200D}\x{1F468}",
  "\x{1F469}\x{200D}\x{2764}\x{200D}\x{1F468}",
  "\x{1F469}\x{200D}\x{2764}\x{200D}\x{1F469}",
  "\x{1F469}\x{200D}\x{2764}\x{200D}\x{1F48B}\x{200D}\x{1F468}",
  "\x{1F469}\x{200D}\x{2764}\x{200D}\x{1F48B}\x{200D}\x{1F469}",
];

sub random_emoji { ${ $EMOJI }[ int rand @$EMOJI ] }

1;

__END__

=encoding utf-8

=head1 NAME

Acme::RandomEmoji - pick an emoji randomly

=head1 SYNOPSIS

=for html
<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