{"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;\nM.^all.map: { next if .b; .a }\n'\n{(mmm.b => False) => mmm.a, (mmm.b => True) => next}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/Cz0Aeet5","modified":1542375848,"id":"Cz0Aeet5","size":237,"lines":10,"own_paste":false,"theme":"","date":1542375848}