{"body":"perl6 -Ilib -MJSON::Fast -MRed -e'                      \n\nmodel Bla {\n   has $.id is serial;\n   has %.value is column{ :inflate(&from-json), :deflate(&to-json) }\n}\n\nmy $*RED-DB = database \"SQLite\";\nBla.^create-table;\n\nBla.^create: :value{a => [^10]}\n\n.say for Bla.^all\n\n'\nBla.new(id => 1, value => ${:a($[0, 1, 2, 3, 4, 5, 6, 7, 8, 9])})","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/ZIdSlm9S","modified":1571938954,"id":"ZIdSlm9S","size":337,"lines":16,"own_paste":false,"theme":"","date":1571938954}