File Coverage

blib/lib/Acme/RandomEmoji.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	8	8	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	54	56	96.4

# 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.01';
our $EMOJI = load_emoji();

sub load_emoji {
    my @chr;
    while (my $line = ) {
        chomp $line;
        $line =~ s/^\s+//; $line =~ s/\s+$//;
        next if !$line || $line =~ /^#/;
        $line =~ s/\s*#.*//;
        $line =~ s/\s*;.*//;
        if ($line !~ /\s+/) {
            my @point;
            if ($line =~ /^([0-9A-F]+)\.\.([0-9A-F]+)$/) {
                @point = hex($1) .. hex($2);
            } else {
                @point = (hex($line));
            }
            for my $point (@point) {
                my $chr = chr $point;
                $chr .= "\N{U+FE0F}" if $point < 256;
                push @chr, $chr;
            }
        } else {
            my @item = split /\s+/, $line;
            my $chr = join "", map { chr hex $_ } @item;
            push @chr, $chr
        }
    }
    close DATA;
    \@chr;
}

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

=encoding utf-8

=head1 NAME

Acme::RandomEmoji - pick an emoji randomly

=head1 SYNOPSIS

=for html


=head1 DESCRIPTION

Acme::RandomEmoji picks an emoji randomly.

Emoji data is taken from:

=over 4

=item L

=item L

=item L

=back

=head1 SEE ALSO

Full Emoji Data L

=head1 COPYRIGHT AND LICENSE

Copyright 2016 Shoichi Kaji

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

Note that this library embed emoji-data.txt, emoji-sequences.txt and emoji-zwj-sequences.txt,
which have their own license. Please refer to L

=cut

1;

__DATA__