Implement multi-server interface

2 files changed, 19 insertions, 2 deletions

diff --git a/lib/IRC/Client/Message.pm6 b/lib/IRC/Client/Message.pm6
index 9559fd1..89295e3 100644
--- a/lib/IRC/Client/Message.pm6
+++ b/lib/IRC/Client/Message.pm6
@@ -7,7 +7,7 @@ role IRC::Client::Message {
     has Str:D $.host     is required;
     has Str:D $.usermask is required;
     has Str:D $.command  is required;
-    has Str:D $.server   is required;
+    has       $.server   is required;
     has       $.args     is required;
 
     method Str { ":$!usermask $!command $!args[]" }
@@ -34,7 +34,7 @@ role Ping does M {
 role Privmsg does M {
     has      $.text    is rw;
     has Bool $.replied is rw = False;
-    method Str { $.text }
+    method ACCEPTS ($what) { $.text ~~ $what }
 }
 role Privmsg::Channel does Privmsg {
     has $.channel;
diff --git a/lib/IRC/Client/Server.pm6 b/lib/IRC/Client/Server.pm6
new file mode 100644
index 0000000..86f5253
--- /dev/null
+++ b/lib/IRC/Client/Server.pm6
@@ -0,0 +1,17 @@
+unit class IRC::Client::Server;
+
+has         @.channels where .all ~~ Str;
+has         @.nick     where .all ~~ Str;
+has Int     $.port     where 0 <= $_ <= 65535;
+has Str     $.label;
+has Str     $.host;
+has Str     $.password;
+has Str     $.username;
+has Str     $.userhost;
+has Str     $.userreal;
+has Str     $.current-nick     is rw;
+has Promise $.promise          is rw;
+has Bool    $.is-connected     is rw;
+has IO::Socket::Async $.socket is rw;
+
+method Str { $!label }