# Change channel and user modes (this one is easy... the handler is a bitch.)
# Takes at least 1 arg:  the target of the command (channel or nick)
#             (optional)  the mode string (i.e., "-boo+i")
#             (optional)  operands of the mode string (nicks, hostmasks, etc.)
sub mode {
  my $self = shift;
  
  unless (@_ >= 1) {
    croak "Not enough arguments to mode()";
  }
  $self->sl("MODE $_[0] " . CORE::join(" ", @_[1..$#_]));
}