aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-07-29 11:39:22 -0400
committerZoffix Znet <cpan@zoffix.com>2016-07-29 11:39:22 -0400
commitfba0bb9ed6774b666fa4002fa4a052ae3964bb8e (patch)
tree725ba45fd0f27586bb81964a7b856ad26d278572
parent0f8f28b4c9268035e96e149b941caa7fd4028e7d (diff)
Trigger events that do not have any convenience events too
-rw-r--r--lib/IRC/Client.pm63
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index a3c14f3..419a0f0 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -224,8 +224,6 @@ method !handle-event ($e) {
self!ssay: "JOIN $_", :server($s) for |$s.channels;
}
when 'PING' { return $e.reply; }
- when 'JOIN' {
- }
}
my $event-name = 'irc-' ~ $e.^name.subst('IRC::Client::Message::', '')
@@ -262,6 +260,7 @@ method !handle-event ($e) {
}
take 'irc-' ~ $e.command, $event-name;
}
+ default { take $event-name }
}
take 'irc-all';
}