{"body":"$ perl6 -Ilib -e '\n\nuse Red;\n\nmodel M is table<mmm> { has Str $.a is column; has Bool $.b is column }\nmy $*RED-DB = database \"SQLite\";\nM.^create-table; my $*RED-DEBUG = True;\nsay M.^all.map: { .a if .b }\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/ynCHwfn4","modified":1542388159,"id":"ynCHwfn4","size":287,"lines":16,"own_paste":false,"theme":"","date":1542388159}