{"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;\nM.^all.map: { next unless .b; .c ?? .c !! .a }\n'\n{{mmm.c => False, mmm.b => False} => next, {mmm.c => False, mmm.b => True} => mmm.a, {mmm.c => True, mmm.b => True} => mmm.c}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/jk9eqzHy","modified":1542376693,"id":"jk9eqzHy","size":349,"lines":10,"own_paste":false,"theme":"","date":1542376693}