view release on metacpan or  search on metacpan

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

	east_smile => [ # from here manipulated vim
	    41, 41,
	],
	west_smile => [
	    58, 41
	],
	bat => [
	  47, 124, 92, 32, 94, 46, 95, 46,
	  94, 32, 47, 124, 92
	],
	dollarbill => [
	  91, 204, 178, 204, 133, 36, 204, 178,
	  204, 133, 40, 204, 178, 204, 133, 206,
	  185, 206, 191, 204, 178, 204, 133, 204,
	  133, 41, 204, 178, 204, 133, 36, 204,
	  178, 204, 133, 93
	],
	wizard => [
	  226, 149, 176, 40, 32, 205, 161,
	  194, 176, 32, 205, 156, 202, 150,
	  32, 205, 161, 194, 176, 32, 41,
	  227, 129, 164, 226, 148, 128,
	  226, 148, 128, 226, 152, 134,
	  42, 58, 227, 131, 187, 239, 190, 
	  159 	  
	],
	terrorist => [
          224, 173, 167, 224, 188, 188, 224, 
	  178, 160, 231, 155, 138, 224, 178, 
	  160, 224, 188, 189, 239, 184, 187, 
	  226, 149, 166, 226, 149, 164, 226, 
	  148, 128 
        ],
	sword => [
	  111, 40, 41, 120, 120, 120, 120, 91, 
	  123, 58, 58, 58, 58, 58, 58, 58, 58,
	  58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 
	  62
	],
	swag => [ 
	  40, 204, 191, 226, 150, 128, 204, 191, 
	  226, 128, 191, 226, 128, 137, 204, 191, 
	  226, 150, 128, 204, 191, 32, 204, 191, 41
	]
    );
}

our @EXPORT    = keys %EMOJI;
our @EXPORT_OK = keys %EMOJI;

=head1 NAME

Acme::AsciiEmoji - Emoji

=head1 VERSION

Version 1.04

=cut

=encoding utf8

=head1 SYNOPSIS

    use Acme::AsciiEmoji;
    ...
    print innocent;
    # ʘ‿ʘ

=cut

=head1 EXPORT

=cut

sub ascii_emoji {
    return pack( 'C*', @{ $EMOJI{ $_[0] } } );
}

=head2 innocent

ʘ‿ʘ
Innocent face 

=cut

sub innocent {
    return ascii_emoji('innocent');
}

=head2 disapproval

ಠ_ಠ
Reddit disapproval face 

=cut

sub disapproval {
    return ascii_emoji('disapproval');
}

=head2 table_flip

(╯°□°）╯︵ ┻━┻
Table Flip / Flipping Table 

=cut

sub table_flip {
    return ascii_emoji('table_flip');
}

=head2 put_the_table_back

┬─┬ ノ( ゜-゜ノ)
Put the table back

=cut

sub put_the_table_back {
    return ascii_emoji('put_the_table_back');