# Pastebin RgUpYYHa
perl6 -I. -MRed -e '                             
model Bla {
    has $!id is serial;
    has Int $.num1 is rw is column;
    has Int $.num2 is rw is column;
}

my $*RED-DB = database "SQLite";

Bla.^create-table;


my $*RED-DEBUG = True;

Bla.^all.map({ .num1<ble> }).Seq;

Bla.^all.map({ .num1<ble> = 42 }).save;
'
SQL : SELECT
   json_extract(bla.num1, '$.ble') as "data_1"
FROM
   bla
BIND: []
SQL : UPDATE bla SET
   num1 = json_set(bla.num1, '$.ble', 42)


BIND: []