# Pastebin 7oqzHGSQ
$ perl6 -Ilib -e '

use Red;

model M is table<mmm> { has Str $.a is column; has Bool $.b is column; has Int $.c is column }
my $*RED-DB = database "SQLite";
M.^create-table; my $*RED-DEBUG = True;
say M.^all.map: { next unless .b; .a }
'
SQL : SELECT
   mmm.a as "data"
FROM
   mmm
WHERE
   not (b == 0 OR b IS NULL)
()