aboutsummaryrefslogtreecommitdiff
path: root/lib/IRC/Client/Message.pm6
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-07-29 14:58:48 -0400
committerZoffix Znet <cpan@zoffix.com>2016-07-29 14:58:48 -0400
commitf8ad84b9017012cc48fda73faf6fca756f77e3de (patch)
tree622bce355997092207db90c6c6d4c6f5f1b7cb21 /lib/IRC/Client/Message.pm6
parentce4d8ae87d738e47058b97e288848a66d282da03 (diff)
Implement automatic nick switcher
Diffstat (limited to 'lib/IRC/Client/Message.pm6')
-rw-r--r--lib/IRC/Client/Message.pm610
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/IRC/Client/Message.pm6 b/lib/IRC/Client/Message.pm6
index a62972d..6e92e82 100644
--- a/lib/IRC/Client/Message.pm6
+++ b/lib/IRC/Client/Message.pm6
@@ -28,7 +28,7 @@ role Unknown does M {
}
role Ping does M {
- method reply { $.irc!IRC::Client::send-cmd: 'PONG', $.args, :$.server; }
+ method reply { $.irc.send-cmd: 'PONG', $.args, :$.server; }
}
role Privmsg does M {
@@ -39,13 +39,13 @@ role Privmsg does M {
role Privmsg::Channel does Privmsg {
has $.channel;
method reply ($text, :$where) {
- $.irc!IRC::Client::send-cmd: 'PRIVMSG', $where // $.channel, $text,
+ $.irc.send-cmd: 'PRIVMSG', $where // $.channel, $text,
:$.server, :prefix("$.nick, ");
}
}
role Privmsg::Me does Privmsg {
method reply ($text, :$where) {
- $.irc!IRC::Client::send-cmd: 'PRIVMSG', $where // $.nick, $text,
+ $.irc.send-cmd: 'PRIVMSG', $where // $.nick, $text,
:$.server;
}
}
@@ -58,14 +58,14 @@ role Notice does M {
role Notice::Channel does Notice {
has $.channel;
method reply ($text, :$where) {
- $.irc!IRC::Client::send-cmd: 'NOTICE', $where // $.channel, $text,
+ $.irc.send-cmd: 'NOTICE', $where // $.channel, $text,
:$.server, :prefix("$.nick, ");
$.replied = True;
}
}
role Notice::Me does Notice {
method reply ($text, :$where) {
- $.irc!IRC::Client::send-cmd: 'NOTICE', $where // $.nick, $text,
+ $.irc.send-cmd: 'NOTICE', $where // $.nick, $text,
:$.server;
$.replied = True;
}