{"body":"$ perl6 -Ilib -MRed -e '\nmy $*RED-DEBUG = True;\nmy $*RED-DB = database \"SQLite\";\nmodel Bla {\n   has Int $.id is rw is column{:id, :!nullable};\n   has Int $.value is rw is column;\n   has Str $.name is rw is column;\n}\n\nBla.^create-table;\nmy $a = Bla.^create: :1id, :42value;\n$a.name = \"the answer\";\n$a.^save: :update;\n\nsay Bla.^all.grep({ (.value == 42) AND (.id > 0) }).map({ .name }).head;\n'\nSQL : CREATE TABLE bla(\n   name varchar(255) NULL,\n   value integer NULL,\n   id integer NOT NULL primary key\n)\nSQL : INSERT INTO bla(\n   value,\n   id\n)\nVALUES(\n   42,\n   1\n)\nSQL : UPDATE bla SET\n   name = 'the answer'\nWHERE id = 1\nSQL : SELECT\n   name as data\nFROM\n   bla\nWHERE\n   value = 42 AND id > 0 \nLIMIT 1\nthe answer","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/tAK446K1","modified":1537753364,"id":"tAK446K1","size":714,"lines":40,"own_paste":false,"theme":"","date":1537753364}