{"body":"perl6 -I. -MRed -e '\nuse Red::AST::Infix;\nmodel Bla { has $!id is serial; has Int $.ble is column }\nmy $*RED-DB = database \"SQLite\";\nBla.^create-table;\nmy $*RED-DEBUG = True;\n\n.say for Bla.^all.grep: { class :: does Red::AST::Infix { method op {\"my-crazy-operator\"}; method returns {} }.new: .id, .ble }    \n\n'\nSQL : SELECT\n   bla.id , bla.ble \nFROM\n   bla\nWHERE\n   bla.id my-crazy-operator bla.ble","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/HSfuiEG0","modified":1573042565,"id":"HSfuiEG0","size":398,"lines":16,"own_paste":false,"theme":"","date":1573042565}