# Pastebin Ur4na2yM
$ perl6 -Ilib -MRed -e '
my $*RED-DEBUG = True;
my $*RED-DB = database "SQLite";
model Bla {
   has Int $.id is rw is column{:id, :!nullable};
   has Int $.value is rw is column;
   has Str $.name is rw is column;
}

Bla.^create-table;
my $a = Bla.^create: :1id, :42value;
$a.name = "the answer";
$a.^save: :update;
                      
say Bla.^all.grep({ .value == 42 }).grep({ .id > 0 }).map({ .name }).head;
'
SQL : CREATE TABLE bla(
   id integer NOT NULL primary key,
   value integer NULL,
   name varchar(255) NULL
)
SQL : INSERT INTO bla(
   value,
   id
)
VALUES(
   42,
   1
)
SQL : UPDATE bla SET
   name = 'the answer'
WHERE id = 1
SQL : SELECT
   name as data
FROM
   bla
WHERE
   value = 42 AND id > 0 
LIMIT 1
the answer