From 07264216dfb1ba527e5aaced7677483df0dae2df Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Tue, 30 May 2017 19:07:55 -0400
Subject: Fix colorization

---
 lib/IRC/Client.pm6 | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

(limited to 'lib')

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index e5696b4..400a326 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -20,17 +20,9 @@ has Lock    $!lock        = Lock.new;
 has Channel $!event-pipe  = Channel.new;
 has Channel $!socket-pipe = Channel.new;
 
-my &colored = get-colored;
-&colored //= sub (Str $s, $) { $s };
-
-sub get-colored {
-    my &colored;
-    try {
-        require Terminal::ANSIColor;
-        &colored = GLOBAL::Terminal::ANSIColor::EXPORT::DEFAULT::<&colored>;
-    }
-    &colored;
-}
+my &colored = (try require Terminal::ANSIColor) === Nil
+     && sub (Str $s, $) { $s } ||
+     ::('Terminal::ANSIColor::EXPORT::DEFAULT::&colored');
 
 submethod BUILD (
     Int:D   :$!debug = 0,
-- 
cgit v1.1