File Coverage

blib/lib/Term/ANSIColor/Simple.pm

Criterion	Covered	Total	%
statement	27	33	81.8
branch	2	2	100.0
condition			n/a
subroutine	8	11	72.7
pod	0	4	0.0
total	37	50	74.0

package Term::ANSIColor::Simple;

use strict;
use warnings;

use parent qw/Exporter/;
our @EXPORT = qw/color/;
our @EXPORT_OK = qw/c/;

our $VERSION = "0.10";

use overload
  '""' => sub { shift->{string} };

my %effects = (
                'bold'           => 1,
                'dark'           => 2,
                'faint'          => 2,
                'underline'      => 4,
                'underscore'     => 4,
                'blink'          => 5,
                'reverse'        => 7,
                'concealed'      => 8,
              );

my %colors = (
                'black'          => 30,
                'red'            => 31,
                'green'          => 32,
                'yellow'         => 33,
                'blue'           => 34,
                'magenta'        => 35,
                'cyan'           => 36,
                'white'          => 37,

                'bright_black'   => 90,
                'bright_red'     => 91,
                'bright_green'   => 92,
                'bright_yellow'  => 93,
                'bright_blue'    => 94,
                'bright_magenta' => 95,
                'bright_cyan'    => 96,
                'bright_white'   => 97,
             );

my %grounds = (
                'on_black'          => 40,
                'on_red'            => 41,
                'on_green'          => 42,
                'on_yellow'         => 43,
                'on_blue'           => 44,
                'on_magenta'        => 45,
                'on_cyan'           => 46,
                'on_white'          => 47,

                'on_bright_black'   => 100,
                'on_bright_red'     => 101,
                'on_bright_green'   => 102,
                'on_bright_yellow'  => 103,
                'on_bright_blue'    => 104,
                'on_bright_magenta' => 105,
                'on_bright_cyan'    => 106,
                'on_bright_white'   => 107,
              );

my %all = (%effects, %colors, %grounds);
my @colors_keys = keys %colors;
my $colors_num = scalar @colors_keys;

while ( my ($color, $code) = each %all ) {
  no strict 'refs';
  *{__PACKAGE__ . '::' . $color} = sub {
    my $self = shift;
    $self->{string} = "\e[${code}m" . $self->{string} . "\e[0m";
    return $self;
  };
}

sub new {
    my ($class, $string) = @_;
    return bless +{ string => $string }, $class;
}

sub c {
    my ($string) = @_;
    return __PACKAGE__->new($string);
}

sub color {
    my ($string) = @_;
    return __PACKAGE__->new($string);
}

sub rainbow {
  my $self = shift;
  my @chars = split //, $self->{string};
  my @colored;

  for my $char (@chars) {
    my $code = $colors{ $colors_keys[ int rand($colors_num) ] };
    # other than spaces
    $code = 0 if $char =~ /\s/;
    push(@colored, "\e[${code}m$char\e[0m");
  }
  return join '', @colored;
}


1;

__END__