aboutsummaryrefslogtreecommitdiff
path: root/lib/IRC/Client/Message.pm6
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-06-05 11:17:15 -0400
committerZoffix Znet <cpan@zoffix.com>2016-06-05 11:17:15 -0400
commit16056e8af837a4d982d23728adf24b4cc406576c (patch)
treec124b0d77711ef4d903a67d05969a35c84a766e4 /lib/IRC/Client/Message.pm6
parenta1ea399a2e4c36949959fa22ecfac5fe583f1775 (diff)
Bug commit
Diffstat (limited to 'lib/IRC/Client/Message.pm6')
-rw-r--r--lib/IRC/Client/Message.pm68
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/IRC/Client/Message.pm6 b/lib/IRC/Client/Message.pm6
index e7478de..9a51803 100644
--- a/lib/IRC/Client/Message.pm6
+++ b/lib/IRC/Client/Message.pm6
@@ -8,9 +8,9 @@ role IRC::Client::Message {
has Str:D $.usermask is required;
has Str:D $.command is required;
has Str:D $.server is required;
- has @.args is required;
+ has $.args is required;
- method Str { ":$!usermask $!command @!args[]" }
+ method Str { ":$!usermask $!command $!args[]" }
}
constant M = IRC::Client::Message;
@@ -26,11 +26,11 @@ role Numeric does M { }
role Part does M { has $.channel; }
role Quit does M { }
role Unknown does M {
- method Str { "❚⚠❚ :$.usermask $.command @.args[]" }
+ method Str { "❚⚠❚ :$.usermask $.command $.args[]" }
}
role Ping does M {
- method reply { $.irc.send-cmd: 'PONG', @.args; }
+ method reply { $.irc.send-cmd: 'PONG', $.args, :$.server; }
}
role Privmsg does M { has $.text; }