{"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    has Int $.num2 is rw is column;\n}\n\nmy $*RED-DB = database \"SQLite\";\nmy $*RED-DEBUG = True;\nBla.^create-table;\n\n\nBla.^all.map({ .num1<ble>[0]<bli> }).Seq;\n\nBla.^all.map({ .num1[0]{\"blo\"}[1] = 42 }).save;\n\nBla.^all.map({ .num2[0] }).Seq; #num2 isnt a Json, so it should break\n\n'\nSQL : CREATE TABLE bla(\n   id integer NOT NULL primary key AUTOINCREMENT,\n   num1 json NOT NULL ,\n   num2 integer NOT NULL \n)\nBIND: []\nSQL : SELECT\n   json_extract(bla.num1, '$.ble[0].bli') as \"data_1\"\nFROM\n   bla\nBIND: []\nSQL : UPDATE bla SET\n   num1 = json_set(bla.num1, '$[0].blo[1]', 42)\n\n\nBIND: []\nConstraint type check failed in binding to parameter 'SELF'; expected anonymous constraint to be met but got Red::Column (Red::Column.new(attr => bla.num2...)\n  in method AT-POS at /Users/fernando/Red/lib/Red/ColumnMethods.pm6 (Red::ColumnMethods) line 73\n  in block <unit> at -e line 19","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/SWYIMqeE","modified":1573262674,"id":"SWYIMqeE","size":999,"lines":40,"own_paste":false,"theme":"","date":1573262674}