From 9fd5da692c91ce1faceef70344fc900689098d68 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 3 Jan 2016 14:43:40 -0500
Subject: Add $when argument to .respond

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

(limited to 'lib')

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 41bb45d..63a7e98 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -91,13 +91,21 @@ method respond (
     Str:D :$where is required,
     Str:D :$what  is required is copy,
     Str:D :$who,
+          :$when  where Dateish|Instant;
 ) {
     $what = "$who, $what" if $who and $where ~~ /^<[#&]>/;
     my $method = $how.fc eq 'PRIVMSG'.fc ?? 'privmsg'
         !! $how.fc eq 'NOTICE'.fc ?? 'notice'
             !! fail 'Unknown :$how specified. Use PRIVMSG or NOTICE';
 
-    self."$method"($where, $what);
+    if $when {
+        Promise.at($when).then: { self."$method"($where, $what) };
+        CATCH { warn .backtrace }
+    }
+    else {
+        self."$method"($where, $what);
+    }
+    self;
 }
 
 method run {
-- 
cgit v1.1