summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Ultramarine/Serialiser/JSON.pm616
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,
+ },
+ };
+ }
+}