view release on metacpan or  search on metacpan

lib/Acme/KemonoFriends/Color.pm  view on Meta::CPAN

my @KemonoFriends_color = qw(
    35   112  208  202
    36   198   39   32
    248  253  196  190
    126  207
);

sub printk {
    my $message = shift;
    my @strings = split('',$message);
    print encode('utf-8', _escaped_message($_)) for @strings;
}

sub _get_color_code {
    my $code = $KemonoFriends_color[int( rand($#KemonoFriends_color) )];

    return '1;38;5;'.$code;
}

sub _escaped_message {
    my $message = shift;

    my $begin = "\e[" . _get_color_code() . "m";
    my $end   = "\e[m";
    return  $begin . $message . $end;
}

1;
__END__

t/01_sub.t  view on Meta::CPAN

use strict;
use Test::More 0.98;
use Acme::KemonoFriends::Color;

my $color_code      = Acme::KemonoFriends::Color::_get_color_code();
ok( $color_code =~ /1;38;5;\d*/, '_get_color_code');

my $escaped_message = Acme::KemonoFriends::Color::_escaped_message('test');
ok( $escaped_message =~ /\e\[1;38;5;\d* m test \e\[m/xms , '_escaped_message');

done_testing;