view release on metacpan or  search on metacpan

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

            128, 239, 189, 165, 41,  239, 190, 137, 226, 148,
            140, 226, 148, 155, 206, 163, 40,  227, 131, 142,
            32,  96,  208, 148, 194, 180, 41,  227, 131, 142
        ],
        success => [
            226, 156, 167, 42,  239, 189, 161, 217, 169, 40,
            203, 138, 225, 151, 156, 203, 139, 42,  41,  217,
            136, 226, 156, 167, 42,  239, 189, 161
        ],
        punch => [
            226, 148, 143, 226, 148, 171, 42,  239, 189, 128, 239, 189,
            176, 194, 180, 226, 148, 163, 226, 148, 129, 226, 148, 129,
            226, 148, 129, 226, 148, 129, 226, 148, 129, 226, 148, 129,
            226, 148, 129, 226, 148, 129, 226, 148, 129, 226, 151, 143,
            41,  239, 190, 159, 79,  239, 190, 159, 41,  46,  239, 189,
            161, 239, 190, 159
        ],
        fu => [
            225, 149, 149, 226, 149, 143, 32,  205, 161, 225,
            181, 148, 32,  226, 128, 184, 32,  205, 161, 225,
            181, 148, 32,  226, 149, 143, 229, 135, 184
        ],
        vision => [ 40, 45, 40, 45, 40, 45, 95, 45, 41, 45, 41, 45, 41 ],
        eyes   => [
            226, 149, 173, 40,  226, 151, 149, 226, 151, 149, 32,  226,
            151, 137, 224, 183, 180, 226, 151, 137, 32,  226, 151, 149,
            226, 151, 149, 41,  226, 149, 174
        ],
        wall => [
            226, 148, 180, 226, 148, 172, 226, 148,
            180,   226, 148, 164, 239, 189, 165, 95,
            239,   189, 165, 226, 148, 156, 226, 148,
            180,   226, 148, 172, 226, 148, 180
        ],
	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 {

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

=cut

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

=head2 eastern smile

))
smile

=cut

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

=head2 western smile

:)
smile

=cut

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

=head2 bat

/|\ ^._.^ /|\
bat

=cut

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

=head2 dollarbill

[̲̅$̲̅(̲̅ιο̲̅̅)̲̅$̲̅]
dollarbill

=cut

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

=head2 wizard

╰( ͡° ͜ʖ ͡° )つ──☆*:・ﾟ

=cut

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

=head2 terrorist

୧༼ಠ益ಠ༽︻╦╤─

=cut

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

=head2 sword

o()xxxx[{::::::::::::::::::>

=cut

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

=head2 swag

(̿▀̿‿ ̿▀̿ ̿)

=cut

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

=head1 AUTHOR

Robert Acock, C<< <email at lnation.org> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-acme-asciiemoji at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-AsciiEmoji>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Acme::AsciiEmoji


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker (report bugs here)

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-AsciiEmoji>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Acme-AsciiEmoji>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Acme-AsciiEmoji>

=item * Search CPAN

L<http://search.cpan.org/dist/Acme-AsciiEmoji/>

=back