# Pastebin SWYIMqeE
perl6 -I. -MRed -e '            
use Red::Type::Json;

model Bla {
    has $!id is serial;
    has Json $.num1 is rw is column;
    has Int $.num2 is rw is column;
}

my $*RED-DB = database "SQLite";
my $*RED-DEBUG = True;
Bla.^create-table;


Bla.^all.map({ .num1<ble>[0]<bli> }).Seq;

Bla.^all.map({ .num1[0]{"blo"}[1] = 42 }).save;

Bla.^all.map({ .num2[0] }).Seq; #num2 isnt a Json, so it should break

'
SQL : CREATE TABLE bla(
   id integer NOT NULL primary key AUTOINCREMENT,
   num1 json NOT NULL ,
   num2 integer NOT NULL 
)
BIND: []
SQL : SELECT
   json_extract(bla.num1, '$.ble[0].bli') as "data_1"
FROM
   bla
BIND: []
SQL : UPDATE bla SET
   num1 = json_set(bla.num1, '$[0].blo[1]', 42)


BIND: []
Constraint type check failed in binding to parameter 'SELF'; expected anonymous constraint to be met but got Red::Column (Red::Column.new(attr => bla.num2...)
  in method AT-POS at /Users/fernando/Red/lib/Red/ColumnMethods.pm6 (Red::ColumnMethods) line 73
  in block <unit> at -e line 19