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