From c1d4a3127912ffc75f680bdb90533ff8ca5c3b6d Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Fri, 29 Jul 2016 09:14:27 -0400
Subject: Debug

---
 lib/IRC/Client.pm6 | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 524a680..afbbba2 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -82,6 +82,14 @@ method part (*@channels, :$server) {
     self;
 }
 
+method quit (:$server = '*') {
+    if $server eq '*' { .has-quit = True for %!servers.values;    }
+    else              { self!get-server($server).has-quit = True; }
+    dd ['quit', $server];
+    self.send-cmd: 'QUIT', 'Leaving', :$server;
+    self;
+}
+
 method run {
     .irc = self for @.plugins.grep: { .DEFINITE and .^can: 'irc' };
     start {
@@ -128,6 +136,7 @@ method send (:$where!, :$text!, :$server, :$notice) {
 }
 
 method send-cmd ($cmd, *@args is copy, :$prefix = '', :$server) {
+    dd ['send-cmd', $server];
     if $cmd eq 'NOTICE'|'PRIVMSG' {
         my ($where, $text) = @args;
         if @!filters
@@ -152,7 +161,8 @@ method send-cmd ($cmd, *@args is copy, :$prefix = '', :$server) {
         }
     }
     else {
-        @args[*-1] = ':' ~ @args[*-1];
+        dd ['send-later', $server];
+        @args[*-1] = ':' ~ @args[*-1] if @args;
         self!ssay: :$server, join ' ', $cmd, @args;
     }
 }
@@ -300,7 +310,9 @@ method !plugs-that-can ($method, |c) {
 
 method !get-server ($server is copy) {
     $server //= '_'; # stupid Perl 6 and its sig defaults
+    dd ['get-server', $server];
     return $server if $server ~~ IRC::Client::Server;
+    dd ['get-server later', $server];
     return %!servers{$server};
 }
 
@@ -315,6 +327,7 @@ method !set-server-attr ($server, $method, $what) {
 
 method !ssay (Str:D $msg, :$server is copy) {
     $server //= '*';
+    dd ['ssay', $server, ~$server];
     $!debug and debug-print $msg, :out, :$server;
     %!servers{$_}.socket.print: "$msg\n"
         for |($server eq '*' ?? %!servers.keys.sort !! $server);
-- 
cgit v1.1