The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

IRC::Toolkit::Colors - IRC color code utilities

SYNOPSIS

  my $str = color('red', "red text") ." other text";

  if (has_color($str)) {
    # ...
  }

  my $stripped = strip_color($str);

DESCRIPTION

IRC utilities for adding color/formatting codes to a string.

color

  my $code = color('red');
  my $str = color('bold') . "bold text" . color() . "normal text";
  my $str = color('bold', "bold text");

Add mIRC formatting/color codes to a string.

Valid formatting codes are:

  normal 
  bold 
  underline 
  reverse 
  italic

Valid color codes are:

  white
  black
  blue
  light_blue
  cyan
  green
  light_green
  red
  brown
  purple
  orange
  yellow
  teal
  pink
  gray
  light_gray

has_color

Returns true if the given string contains color or formatting codes.

strip_color

Strips all color and formatting codes from the string.

AUTHOR

Jon Portnoy <avenj@cobaltirc.org>

Much of this code is primarily derived from IRC::Utils, authored by HINRIK & BINGOS.

Licensed under the same terms as Perl.