From 92e16c5d823c16267b42ae9ea056f931cec96de4 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Thu, 28 Jul 2016 21:19:47 -0400
Subject: Blarg

---
 lib/IRC/Client.pm6 | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index f463296..4055f1b 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -79,15 +79,6 @@ method part (*@channels, :$server) {
     self;
 }
 
-method !set-server-attr ($server, $method, $what) {
-    if $server ne '*' {
-        %!servers{$server}."$method"() = $what;
-        return;
-    }
-
-    ."$method"() = $what for %!servers.values;
-}
-
 method run {
     .irc = self for @.plugins.grep: { .DEFINITE and .^can: 'irc' };
 
@@ -164,10 +155,10 @@ method send-cmd ($cmd, *@args is copy, :$prefix = '', :$server) {
 ###############################################################################
 
 method !connect-socket ($server) {
-    $!debug and debug-print 'Attempting to connect to server', :sys, :$server;
+    $!debug and debug-print 'Attempting to connect to server', :out, :$server;
     IO::Socket::Async.connect($server.host, $server.port).then: sub ($prom) {
         if $prom.status ~~ Broken {
-            $!debug and debug-print 'Could not connect', :sys, :$server;
+            $!debug and debug-print 'Could not connect', :out, :$server;
             sleep 5;
             $!socket-pipe.send: $server;
             return;
@@ -197,7 +188,7 @@ method !connect-socket ($server) {
         }
 
         unless $server.has-quit {
-            $!debug and debug-print "Connection closed", :sys, :$server;
+            $!debug and debug-print "Connection closed", :in, :$server;
             sleep 5;
         }
 
@@ -295,6 +286,15 @@ method !plugs-that-can ($method, $e) {
     }
 }
 
+method !set-server-attr ($server, $method, $what) {
+    if $server ne '*' {
+        %!servers{$server}."$method"() = $what;
+        return;
+    }
+
+    ."$method"() = $what for %!servers.values;
+}
+
 method !ssay (Str:D $msg, :$server is copy) {
     $server //= '*';
     $!debug and debug-print $msg, :out, :$server;
-- 
cgit v1.1