Help for this page

Select Code to Download


  1. or download this
    package Chat::Pool;
    
    ...
    
    sub pool : lvalue { $_[0]->[0] }
    sub col  : lvalue { $_[0]->[1] }
    
  2. or download this
    package Chat::Pool::ANSI;
    use base "Chat::Pool";
    ...
      ($chat->color($id))[0],
      $text,
      "\033[0m";