Merge branch 'master' of ssh://deprecated.org:22333/var/www/cgit/perl6-matrix-client

1 files changed, 21 insertions, 0 deletions

diff --git a/examples/run.p6 b/examples/run.p6
new file mode 100644
index 0000000..f78df16
--- /dev/null
+++ b/examples/run.p6
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl6
+use v6;
+use lib <lib>;
+use Matrix::Client;
+
+sub MAIN(Str:D $username, Str:D $password, :$home-server = "https://matrix.deprecated.org") {
+    my Matrix::Client $client .= new: :$home-server;
+    $client.login($username, $password);
+
+    my $sup = $client.run(:sleep<5>);
+
+    signal(SIGINT).tap({
+        say "Bye";
+        $client.logout;
+        exit 0;
+    });
+
+    react whenever $sup -> $ev {
+        say $ev;
+    }
+}