fix issue

lib/Redis.pm

@@ -750,4 +750,28 @@ method zunionstore(Str $destination, *@keys, :WEIGHTS(@weights)?, :AGGREGATE(@ag
 
 ###### ! Commands/SortedSets #######
 
+###### Commands/Pub&Sub #######
+
+method psubscribe(*@patterns) {
+    return self!exec_command("PSUBSCRIBE", |@patterns);
+}
+
+method publish(Str $channel, $message) {
+    return self!exec_command("PUBLISH", $channel, $message);
+}
+
+method punsubscribe(*@patterns) {
+    return self!exec_command("PUNSUBSCRIBE", |@patterns);
+}
+
+method subscribe(*@channels) {
+    return self!exec_command("SUBSCRIBE", |@channels);
+}
+
+method unsubscribe(*@channels) {
+    return self!exec_command("UNSUBSCRIBE", |@channels);
+}
+
+###### ! Commands/Pub&Sub #######
+
 # vim: ft=perl6

t/02-pub&sub.t

@@ -0,0 +1,15 @@
+use v6;
+
+BEGIN { @*INC.push('t/') };
+use Redis;
+use Test;
+use Test::SpawnRedisServer;
+
+my $r = Redis.new(decode_response => True);
+$r.connect;
+$r.flushall;
+
+plan 1;
+
+# TODO 
+is_deeply $r.publish("queue", "data"), 0;