'READY' => sub { $self->discord_ready(@_) },
'MESSAGE_CREATE' => sub { $self->discord_message_create(@_) },
'GUILD_CREATE' => sub { $self->discord_guild_create(@_) },
'READY' => sub { $self->discord_ready(@_) },
'MESSAGE_CREATE' => sub { $self->discord_message_create(@_) },
'GUILD_CREATE' => sub { $self->discord_guild_create(@_) },
- say localtime(time) . "$chan->{id} - $chan->{name}";
- $self->discord_channels->{$chan->{id}} = $chan->{name};
+ say localtime(time) . " - $chan->{id} - $chan->{name}";
+ $self->discord_channels->{$chan->{id}} = $chan;
sub parseCommand {
my ($self, $msg, $server, $nick, $address, $channel, $model) = @_;
sub parseCommand {
my ($self, $msg, $server, $nick, $address, $channel, $model) = @_;