From 7be9fa68bef82a7576344a6e8cc1e51154c6b3bf Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@gmail.com>
Date: Mon, 11 Jan 2021 22:20:09 -0300
Subject: Response & Exception refactor

---
 lib/Matrix/Response.pm6 | 156 ------------------------------------------------
 1 file changed, 156 deletions(-)
 delete mode 100644 lib/Matrix/Response.pm6

(limited to 'lib/Matrix/Response.pm6')

diff --git a/lib/Matrix/Response.pm6 b/lib/Matrix/Response.pm6
deleted file mode 100644
index a0b2896..0000000
--- a/lib/Matrix/Response.pm6
+++ /dev/null
@@ -1,156 +0,0 @@
-use JSON::Fast;
-
-unit module Matrix::Response;
-
-class Matrix::Response::Event {
-    has %.content;
-    has $.type is required;
-}
-
-class Matrix::Response::RoomEvent is Matrix::Response::Event {
-    has Str $.sender;
-    has Int $.origin_server_ts;
-    has $.event_id;
-    has Str $.room_id;
-
-    method id { $.event_id }
-    method timestamp { $!origin_server_ts }
-    method room-id { $.room_id }
-}
-
-class Matrix::Response::StateEvent is Matrix::Response::RoomEvent {
-    has $.prev_content;
-    has $.state_key;
-}
-
-class Matrix::Response::MemberEvent is Matrix::Response::StateEvent {
-    has $.type is required where 'm.room.member';
-}
-
-class Matrix::Response::Timeline {
-    has Matrix::Response::Event @.events;
-    has Bool $limited;
-    has Str $prev-batch;
-}
-
-class Matrix::Response::RoomInfo {
-    has $.room-id is required;
-    has Matrix::Response::Event @.state;
-    has Matrix::Response::Timeline $.timeline;
-
-    method gist(--> Str) {
-        "<Matrix::Response::RoomInfo: $.room-id>"
-    }
-}
-
-class Matrix::Response::InviteInfo {
-    has $.room-id is required;
-    has Matrix::Response::Event @.events;
-
-    method gist(--> Str) {
-        "<Matrix::Response::InviteState: $.room-id>"
-    }
-}
-
-sub gather-events($room-id, $from) {
-    gather for $from<events>.List -> $ev {
-        take Matrix::Response::StateEvent.new(:room_id($room-id), |$ev);
-    }
-}
-
-class Matrix::Response::Messages {
-    has $.start;
-    has $.end;
-    has Matrix::Response::RoomEvent @.messages;
-}
-
-class Matrix::Response::Sync {
-    has Str $.next-batch;
-    has Matrix::Response::Event @.presence;
-    has Matrix::Response::RoomInfo @.joined-rooms;
-    has Matrix::Response::InviteInfo @.invited-rooms;
-
-    multi method new(Str $json) {
-        return self.new(from-json($json));
-    }
-
-    multi method new(Hash $json) {
-        my $next-batch = $json<next_batch>;
-        my Matrix::Response::Event @presence;
-        my Matrix::Response::RoomInfo @joined-rooms;
-        my Matrix::Response::InviteInfo @invited-rooms;
-
-        for $json<presence><events>.List -> $ev {
-            @presence.push(Matrix::Response::Event.new(|$ev));
-        }
-
-        for $json<rooms><join>.kv -> $room-id, $data {
-            my @state = gather-events($room-id, $data<state>);
-
-            my $timeline = Matrix::Response::Timeline.new(
-                limited => $data<timeline><limited>,
-                prev-batch => $data<timeline><prev_batch>,
-                events => gather-events($room-id, $data<timeline>)
-            );
-
-            @joined-rooms.push(Matrix::Response::RoomInfo.new(
-                :$room-id, :$timeline, :@state
-            ));
-        }
-
-        for $json<rooms><invite>.kv -> $room-id, $data {
-            my @events = gather-events($room-id, $data<invite_state>);
-            @invited-rooms.push(Matrix::Response::InviteInfo.new(
-                :$room-id, :@events
-            ));
-        }
-
-        return self.bless(:$next-batch, :@presence,
-                          :@joined-rooms, :@invited-rooms);
-    }
-}
-
-class Presence {
-    has Str $.presence is required;
-    has Int $.last-active-ago;
-    has Str $.status-message;
-    has Bool $.currently-active;
-
-    submethod BUILD(
-        Str :$!presence,
-        :last_active_ago(:$!last-active-ago) = 0,
-        :status_message(:$!status-message) = "",
-        :currently_active(:$!currently-active) = False
-    ) { }
-}
-
-class Tag {
-    has @.tags;
-
-    method new(%json) {
-        my @tags = %json<tags>.keys;
-        self.bless(:@tags)
-    }
-}
-
-class Matrix::Response::Device {
-    has Str $.device-id;
-    has $.display-name;
-    has $.last-seen-ip;
-    has $.last-seen-ts;
-
-    submethod BUILD(
-        Str :device_id(:$!device-id),
-        :display_name(:$!display-name)?,
-        :last_seen_ip(:$!last-seen-ip)?,
-        :last_seen_ts(:$!last-seen-ts)?
-    ) { }
-}
-
-class Matrix::Response::MediaStore::Config {
-    has Int $.upload-size;
-
-    method new(%config) {
-        self.bless(:upload-size(%config<m.upload.size> // Int));
-    }
-}
-- 
cgit v1.2.3-70-g09d2