{"body":"$ perl6 -MRed -e '\nmy $*RED-DB = database \"SQLite\";\nmy $*RED-DEBUG = True;\nmodel A is table<aaaa> { has UInt $!id is serial; has Int $.a is column is rw }\nA.^create-table;\nmy $a = A.^create: :42a;\n$a.a = 13;\n$a.^save;\nsay A.^all.grep(*.a == 13).map: { .a > 3 ?? \"the result is { .a }\" !! \"{ .a } isnt greater than 3\" }\n'\nSQL : CREATE TABLE aaaa(\n   id  integer  NOT NULL  primary key  AUTOINCREMENT   ,\n   a  integer  NOT NULL       \n)\nBIND: []\nSQL : INSERT INTO aaaa(\n   a\n)\nVALUES(\n   ?\n)\nBIND: [42]\nSQL : SELECT\n   aaaa.id , aaaa.a \nFROM\n   aaaa\nWHERE\n   _rowid_ = last_insert_rowid()\nLIMIT 1\nBIND: []\nSQL : UPDATE aaaa SET\n   a = 13\nWHERE id = 1\n\nBIND: []\nSQL : SELECT\n   CASE \n      WHEN a > 3 THEN 'the result is ' || a\n      WHEN a <= 3 THEN a || ' isnt greater than 3'\n\n   END\n    as \"data_1\"\nFROM\n   aaaa\nWHERE\n   aaaa.a = 13\nBIND: []\n(the result is 13)","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/FHt6aPjc","modified":1552583457,"id":"FHt6aPjc","size":862,"lines":48,"own_paste":false,"theme":"","date":1552583457}