also JSON serialiser

Subsonic's JSON response structure is just different enough from what
XML::Writer wants, that making them both work is going to be *hard*

1 files changed, 16 insertions, 0 deletions

diff --git a/lib/Ultramarine/Serialiser/JSON.pm6 b/lib/Ultramarine/Serialiser/JSON.pm6
new file mode 100644
index 0000000..3928dc8
--- /dev/null
+++ b/lib/Ultramarine/Serialiser/JSON.pm6
@@ -0,0 +1,16 @@
+use v6.d.PREVIEW;
+use Cro::HTTP::BodySerializer;
+use XML::Writer;
+
+class Ultramarine::Serialiser::JSON
+ is Cro::HTTP::BodySerializer::JSON {
+
+    method serialize(Cro::HTTP::Message $message, $body --> Supply) {
+        nextwith $message, {
+            subsonic-response => {
+                :version<1.13.0>,
+                |$body,
+            },
+        };
+    }
+}