{"body":"$ perl6 -Ilib -e '\n\nuse Red;\n\nmodel M is table<mmm> { has Str $.a is column; has Bool $.b is column; has Int $.c is column }\nmy $*RED-DB = database \"SQLite\";\nM.^create-table; my $*RED-DEBUG = True;\nsay M.^all.map: { next unless .b; .a }\n'\nSQL : SELECT\n   mmm.a as \"data\"\nFROM\n   mmm\nWHERE\n   not (b == 0 OR b IS NULL)\n()","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/7oqzHGSQ","modified":1542379983,"id":"7oqzHGSQ","size":320,"lines":16,"own_paste":false,"theme":"","date":1542379983}