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/get-sync-json.raku | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 examples/get-sync-json.raku

(limited to 'examples/get-sync-json.raku')

diff --git a/examples/get-sync-json.raku b/examples/get-sync-json.raku
new file mode 100644
index 0000000..2db9c5a
--- /dev/null
+++ b/examples/get-sync-json.raku
@@ -0,0 +1,12 @@
+use v6;
+use Matrix::Client;
+
+sub MAIN($file? = 'sync.json') {
+    my $c = Matrix::Client.new(home-server => 'https://matrix.deprecated.org');
+    $c.login: 'deprecated_bot', 'deprecatedbot';
+
+    my $res = $c.sync;
+    $file.IO.spurt($res.content);
+
+    $c.logout;
+}
-- 
cgit v1.2.3-70-g09d2