view release on metacpan or  search on metacpan

lib/Acme/MilkyHolmes/Role/HasPersonalColor.pm  view on Meta::CPAN

    return $self->common->[0]->{color};
}


sub say {
    my ($self, $comment) = @_;

    my $message = encode_utf8($self->nickname . ': ' . $comment);

    if ( defined $self->color && $self->color_enable ) {
        $message = $self->_escaped_message($self->color, $message);

    }
    print "$message\n";
}

sub _escaped_color_begin {
    my ($self, $color_name) = @_;
    return "\e[" . $ansi_colors->{$color_name} . "m"
}

sub _escape_end {
    my ($self) = @_;
    return "\e[m";
}

sub _escaped_message {
    my ($self, $color_name, $message) = @_;
    return $self->_escaped_color_begin($color_name) . $message . $self->_escape_end();
}


1;