Help for this page

Select Code to Download


  1. or download this
      # 0=>A, B=>1, C=>2, D=>3, E=>4, F=>5
  # A joins
...
  # Get the colors:
  local $_;
  print "$_: " . join ", ", $chat->color($_) for 0..5;
  2. or download this
      # 0=>A, B=>1, C=>2, D=>3, E=>4, F=>5
  # A joins
...
  $chat->tick(1, $stamp+1);
  print "B: " . join ", ", $chat->color(1);
  # etc.
  3. or download this
    package Heinz::Colors;

...
sub col : lvalue { $_[0]->[3] }

1;