lib/Ultramarine/Serialiser/JSON.pm6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use v6.d.PREVIEW;
use Cro::HTTP::BodySerializers;
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,
            },
        };
    }
}