{"body":"$ perl6 -Ilib -e 'use Red;\n        \nmodel M is table<mmm> { has Str $.a is column; has Bool $.b is column; has Str $.c is column }\nmy $*RED-DB = database \"SQLite\";\nM.^create-table; my $*RED-DEBUG = True;\nsay M.^all.map: { .b ?? .a !! .c }\n'\nSQL : SELECT\n   CASE \n      WHEN (b == 0 OR b IS NULL) THEN c\n      WHEN (b <> 0 AND b IS NOT NULL) THEN a\n\n   END\n    as \"data\"\nFROM\n   mmm\n()","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/I1tlJXWM","modified":1542415407,"id":"I1tlJXWM","size":384,"lines":17,"own_paste":false,"theme":"","date":1542415407}