aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--META6.json2
-rw-r--r--lib/IRC/Client.pm614
2 files changed, 4 insertions, 12 deletions
diff --git a/META6.json b/META6.json
index b347847..40f461e 100644
--- a/META6.json
+++ b/META6.json
@@ -2,7 +2,7 @@
"perl" : "6.c",
"name" : "IRC::Client",
"license" : "Artistic-2.0",
- "version" : "3.006004",
+ "version" : "3.006005",
"description" : "Extendable Internet Relay Chat client",
"tags" : [ "Net", "IRC" ],
"depends" : [
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,