diff options
author | Zoffix Znet <cpan@zoffix.com> | 2016-07-29 14:58:48 -0400 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2016-07-29 14:58:48 -0400 |
commit | f8ad84b9017012cc48fda73faf6fca756f77e3de (patch) | |
tree | 622bce355997092207db90c6c6d4c6f5f1b7cb21 /lib/IRC/Client | |
parent | ce4d8ae87d738e47058b97e288848a66d282da03 (diff) |
Implement automatic nick switcher
Diffstat (limited to 'lib/IRC/Client')
-rw-r--r-- | lib/IRC/Client/Message.pm6 | 10 |
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; } |