diff options
author | Zoffix Znet <cpan@zoffix.com> | 2016-08-02 10:13:51 -0400 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2016-08-02 10:13:51 -0400 |
commit | ed6c6f01bd563df1c4f7ec1a7e6262bffb6c24cc (patch) | |
tree | 22d90e1c9fa9d271849bd53f605b73b66e9934e6 /lib/IRC | |
parent | 5d193e0c18f747f2f4f71d068f1baa31f94fe3aa (diff) |
Add support for channel passwords
Closes #18
Diffstat (limited to 'lib/IRC')
-rw-r--r-- | lib/IRC/Client.pm6 | 3 | ||||
-rw-r--r-- | lib/IRC/Client/Server.pm6 | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index f2f73a7..486bfcd 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -75,7 +75,8 @@ submethod BUILD ( } method join (*@channels, :$server) { - self.send-cmd: 'JOIN', $_, :$server for @channels; + self.send-cmd: 'JOIN', ($_ ~~ Pair ?? .kv !! .Str), :$server + for @channels; self; } diff --git a/lib/IRC/Client/Server.pm6 b/lib/IRC/Client/Server.pm6 index 1857fcc..f438d6d 100644 --- a/lib/IRC/Client/Server.pm6 +++ b/lib/IRC/Client/Server.pm6 @@ -1,6 +1,6 @@ unit class IRC::Client::Server; -has @.channels where .all ~~ Str; +has @.channels where .all ~~ Str|Pair; has @.nick where .all ~~ Str; has Int $.port where 0 <= $_ <= 65535; has Str $.label; |