Select Code to Download

package Chat::Pool;

...

sub pool : lvalue { $_[0]->[0] }
sub col  : lvalue { $_[0]->[1] }

package Chat::Pool::ANSI;
use base "Chat::Pool";
...
  ($chat->color($id))[0],
  $text,
  "\033[0m";