gistfile1.pl

sub invite {
  my ($self, $cl, $msg) = @_;

  my (undef, $from, $channel) = @{$msg->{params}};
  utf8::decode($_) for ($from, $channel);

  $self->broadcast({
    type => "action",
    event => "announce",
    body => "$from has invited you to $channel",
  });
}