Term::ANSIColor::Relaxで愛されモテカワ端末に大変身!?

今更ながら、autobox面白いな、と思ったので。

http://github.com/zentooo/p5-term-ansicolor-relax

下のコードを実行すると

use Term::ANSIColor::Relax;
use feature qw/say/;

say "I"->green; # color
say "love"->magenta->bold->underscore; # style
say "you"->white->on_blue; # background

こうなる。

さらに、rainbowというメソッドを使うと

use strict;
use warnings;
use Test::More;

use Term::ANSIColor::Relax;

my $timtoady = <<'TIMTOADY';
#####  ###  #    #  #####   ###     #    ####   #   #
  #     #   ##  ##    #    #   #   # #   #   #  #   #
  #     #   # ## #    #    #   #  #   #  #   #   # #
  #     #   #    #    #    #   #  #####  #   #    #
  #     #   #    #    #    #   #  #   #  #   #    #
  #    ###  #    #    #     ###   #   #  ####     #
TIMTOADY

note $timtoady->rainbow;

ok(1);

done_testing;