Acme-AsciiEmoji

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.06    21/03/2017
        inject, why, execution.

0.06    21/03/2017
        kicking, success, punch.

1.03	19/03/2026
	Adds east_smile, west_smile, bat, dollarbill, wizard

1.04	19/03/2026
	Adds terrorist, sword and swag

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

	],
	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, 

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

=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');

t/02-smile.t  view on Meta::CPAN

use Test::More;

use Acme::AsciiEmoji qw/east_smile west_smile bat dollarbill wizard terrorist sword swag/;

is(east_smile, '))', 'a east smile test');
is(west_smile, ':)', 'a west smile test');
is(bat, '/|\ ^._.^ /|\\', 'bat');

like(dollarbill, qr/[̲̅$̲̅(̲̅ιο̲̅)̲̅$̲̅]/, 'dollarbill');

is(wizard, '╰( ͡° ͜ʖ ͡° )つ──☆*:・ﾟ', 'wizard');

is(terrorist, '୧༼ಠ益ಠ༽︻╦╤─', 'terrorist');

my @data = unpack('C*', '(̿▀̿‿ ̿▀̿ ̿)');

is(sword, 'o()xxxx[{::::::::::::::::::>', 'sword');

is(swag, '(̿▀̿‿ ̿▀̿ ̿)', 'swag');

done_testing();