File Coverage

blib/lib/Acme/KemonoFriends/Color.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	0	1	0.0
total	31	36	86.1

package Acme::KemonoFriends::Color;
use 5.008001;
use strict;
use warnings;
use utf8;
use Encode qw( encode );
use Exporter 'import';
our @EXPORT = qw( printk );
our $VERSION = "0.01";

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__