First working test

.gitignore

@@ -1,2 +1,3 @@
 lib/.precomp
+t/release/.precomp
 *~

examples/bot.pl6

@@ -14,9 +14,11 @@ my $irc = IRC::Client.new(
     :debug<1>
     # :channels<#zofbot>
     # :host<irc.freenode.net>
+    :port<6667>
     :servers(
         mine     => { :port<5667> },
-        inspircd => { :port<6667> },
+        inspircd => {             },
+        # freenode => { :host<irc.freenode.net> },
     )
     :plugins(MyPlug.new)
 ).run;

lib/IRC/Client.pm6

@@ -37,14 +37,14 @@ method run {
                 "USER $!username $!username $!host :$!userreal",
                 :server($s-name);
 
+            my $left-overs = '';
             react {
                 CATCH { warn .backtrace }
 
                 whenever $s-conf<sock>.Supply :bin -> $buf is copy {
-                    state $left-overs = '';
                     my $str = try $buf.decode: 'utf8';
                     $str or $str = $buf.decode: 'latin-1';
-                    $str = $left-overs ~ $str;
+                    $str = ($left-overs//'') ~ $str;
 
                     (my $events, $left-overs)
                     = self!parse: $str, :server($s-name);
@@ -84,8 +84,8 @@ method !handle-event ($e) {
         }
         when 'PING' { $e.reply }
         when 'JOIN' {
-            say "Joined channel $e.channel()"
-                if $e.nick eq %!servers{ $e.server }<nick>;
+            # say "Joined channel $e.channel() on $e.server()"
+                # if $e.nick eq %!servers{ $e.server }<nick>;
         }
     }
 

lib/IRC/Client/Grammar/Actions.pm6

@@ -58,6 +58,11 @@ method message ($match) {
                 :channel( %args<params>[0] ),
                 |%msg-args;
         }
+        when 'NICK'    {
+            $msg = IRC::Client::Message::Nick.new:
+                :new-nick( %args<params>[0] ),
+                |%msg-args;
+        }
         when 'NOTICE'  { $msg = msg-notice  %args, %msg-args                  }
         when 'MODE'    { $msg = msg-mode    %args, %msg-args                  }
         when 'PING'    { $msg = IRC::Client::Message::Ping.new: |%msg-args    }

lib/IRC/Client/Message.pm6

@@ -22,6 +22,7 @@ role Notice::Me       does Notice  {                                         }
 role Mode             does M       { has @.modes;                            }
 role Mode::Channel    does Mode    { has $.channel;                          }
 role Mode::Me         does Mode    {                                         }
+role Nick             does M       { has $.new-nick;                         }
 role Numeric          does M       {                                         }
 role Part             does M       { has $.channel;                          }
 role Quit             does M       {                                         }