diff options
Diffstat (limited to 'examples/rooms.p6')
| -rw-r--r-- | examples/rooms.p6 | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/examples/rooms.p6 b/examples/rooms.p6 index 7a2de98..4f0a0c7 100644 --- a/examples/rooms.p6 +++ b/examples/rooms.p6 @@ -1,7 +1,12 @@ use v6; use Matrix::Client; -my $c = Matrix::Client.new: :home-server<https://matrix.deprecated.org>; -$c.login: @*ARGS[0], @*ARGS[1]; -say $c.rooms(:sync); +sub MAIN($username, $pass) { + my $c = Matrix::Client.new(home-server => 'https://matrix.deprecated.org'); + $c.login: $username, $pass; + + for $c.joined-rooms -> $room { + $room.say; + } +} |