# Pastebin bnZOPXOs
perl6 -I. -MRed -e '
my $*RED-DB = database "SQLite";

model Bla { has $!id is serial; has Int $.number is rw is column }

Bla.^create-table;

my $*RED-DEBUG = True;

Bla.^all.grep(*.id > 10).map({ .number ~= "bla" }).save

'
SQL : UPDATE bla SET
   number = bla.number || 'bla'
WHERE bla.id > 10

BIND: []