Merge pull request #16 from MasterDuke17/master

Fix for precompilation problems when requiring inside of a try
lizmat · Jul 30, 2016 · 9a6ef7b · 9a6ef7b
2 parents af8ff47 + 4f3d80a
commit 9a6ef7b
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
@@ -20,11 +20,17 @@ has Lock    $!lock        = Lock.new;
 has Channel $!event-pipe  = Channel.new;
 has Channel $!socket-pipe = Channel.new;
 
-my &colored = try {
-    require Terminal::ANSIColor;
-    &colored
-    = GLOBAL::Terminal::ANSIColor::EXPORT::DEFAULT::<&colored>;
-} // sub (Str $s, $) { $s };
+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;
+}
 
 submethod BUILD (
     Int:D   :$!debug = 0,