{"body":"perl6 -I. -MRed -e '\nuse Red::Type::Json;\n\nmodel Bla {\n    has $!id is serial;\n    has Json $.num1 is rw is column;\n}\n\nmy $*RED-DB = database \"SQLite\", :database<test-json.db>;\nmy $*RED-DEBUG = True;\nBla.^create-table;\nBla.^create: :num1{:42bla};\n\n.say for Bla.^all.map({ .num1<bla> });\n\n\n\n'\nSQL : CREATE TABLE bla(\n   id integer NOT NULL primary key AUTOINCREMENT,\n   num1 json NOT NULL \n)\nBIND: []\nSQL : INSERT INTO bla(\n   num1\n)\nVALUES(\n   ?\n)\nBIND: [\"\\{\\n  \\\"bla\\\": 42\\n}\"]\nSQL : SELECT\n   bla.id , bla.num1 \nFROM\n   bla\nWHERE\n   _rowid_ = last_insert_rowid()\nLIMIT 1\nBIND: []\nSQL : SELECT\n   json_extract(bla.num1, '$.bla') as \"data_1\"\nFROM\n   bla\nBIND: []\n42","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/SogvYwTD","modified":1573266434,"id":"SogvYwTD","size":665,"lines":44,"own_paste":false,"theme":"","date":1573266434}