From e50b8fa9e02b19ece80ebeb576051e451d3a7812 Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@gmail.com>
Date: Tue, 24 Mar 2020 19:37:11 -0300
Subject: Rename some things to from perl6 to raku

---
 examples/doc-test.raku | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 examples/doc-test.raku

(limited to 'examples/doc-test.raku')

diff --git a/examples/doc-test.raku b/examples/doc-test.raku
new file mode 100644
index 0000000..0072c94
--- /dev/null
+++ b/examples/doc-test.raku
@@ -0,0 +1,19 @@
+use v6;
+use lib <lib>;
+use Matrix::Client;
+use Data::Dump::Tree;
+
+my Matrix::Client $client .= new:
+    :home-server<https://matrix.deprecated.org>,
+    :access-token(%*ENV<MATRIX_ACCESS_TOKEN>);
+
+say $client.presence(“@matias:matrix.deprecated.org”);
+#`[
+for ^10 -> $i {
+    my $presence = $i %% 2 ?? "online" !! "offline";
+    say $client.presence.presence;
+    say "Setting presence $presence";
+    $client.set-presence($presence, :status-message<woops>);
+    sleep 3;
+}
+]
-- 
cgit v1.2.3-54-g00ecf