{"body":"perl6 -I. -MRed -e '                          \nuse Red::AST::Generic::Infix;\nmodel Bla { has $!id is serial; has Int $.ble is column{ :deflate{ S:g/a/_/ } }; }\nmy $*RED-DB = database \"SQLite\";\nBla.^create-table;\n\nBla.^create: :ble<abacate>;\nmy $*RED-DEBUG = True;\n.say for Bla.^all.grep: *.ble eq ($ = \"bla\")\n\n'\nSQL : SELECT\n   bla.id , bla.ble \nFROM\n   bla\nWHERE\n   bla.ble = ?\nBIND: [\"bla\"]","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/hpC4r7BN","modified":1573495858,"id":"hpC4r7BN","size":392,"lines":18,"own_paste":false,"theme":"","date":1573495858}