From e3c619494601a8628b8a27bd855fa9b1506c0728 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Fri, 29 Jul 2016 19:21:20 -0400
Subject: Add examples; fix up docs

---
 examples/07-multi-server-message-forwarder.p6 | 37 +++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 examples/07-multi-server-message-forwarder.p6

(limited to 'examples/07-multi-server-message-forwarder.p6')

diff --git a/examples/07-multi-server-message-forwarder.p6 b/examples/07-multi-server-message-forwarder.p6
new file mode 100644
index 0000000..06d07ec
--- /dev/null
+++ b/examples/07-multi-server-message-forwarder.p6
@@ -0,0 +1,37 @@
+use lib <lib>;
+
+use IRC::Client;
+
+class Messenger does IRC::Client::Plugin {
+    method irc-privmsg-channel ($e) {
+        for $.irc.servers.values -> $server {
+            for $server.channels -> $channel {
+                next if $server eq $e.server and $channel eq $e.channel;
+
+                $.irc.send: :$server, :where($channel), :text(
+                    "$e.nick() over at $e.server.host()/$e.channel() says $e.text()"
+                );
+            }
+        }
+
+        $.irc.send: :where<Zoffix>
+                    :text('I spread the messages!')
+                    :server<local>;
+    }
+}
+
+.run with IRC::Client.new:
+    :debug
+    :plugins[Messenger.new]
+    :nick<MahBot>
+    :channels<#zofbot>
+    :servers{
+        freenode => %(
+            :host<irc.freenode.net>,
+        ),
+        local => %(
+            :nick<P6Bot>,
+            :channels<#zofbot #perl6>,
+            :host<localhost>,
+        )
+    }
-- 
cgit v1.1