isa => 'Str'
);
+has discord_channels => (
+ is => 'rw',
+ isa => 'HashRef',
+ default => sub { {} }
+);
+
# We registered for all events, this will produce some debug info.
sub _default {
my ($event, $args) = @_[ARG0 .. $#_];
}
sub discord_guild_create {
+ my $self = shift;
+ my $hash = shift;
+
+ for my $chan (@{$hash->{channels}}) {
+ say localtime(time) . "$chan->{id} - $chan->{name}";
+ $self->discord_channels->{$chan->{id}} = $chan->{name};
+ }
}
sub parseCommand {