{"body":"perl6 -I. -MRed -e '                             \nmodel Bla {\n    has $!id is serial;\n    has Int $.num1 is rw is column;\n    has Int $.num2 is rw is column;\n}\n\nmy $*RED-DB = database \"SQLite\";\n\nBla.^create-table;\n\n\nmy $*RED-DEBUG = True;\n\nBla.^all.map({ .num1<ble> }).Seq;\n\nBla.^all.map({ .num1<ble> = 42 }).save;\n'\nSQL : SELECT\n   json_extract(bla.num1, '$.ble') as \"data_1\"\nFROM\n   bla\nBIND: []\nSQL : UPDATE bla SET\n   num1 = json_set(bla.num1, '$.ble', 42)\n\n\nBIND: []","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/RgUpYYHa","modified":1573174721,"id":"RgUpYYHa","size":471,"lines":28,"own_paste":false,"theme":"","date":1573174721}