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

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

my $*RED-DB = database "SQLite", :database<test-json.db>;
my $*RED-DEBUG = True;
Bla.^create-table;
Bla.^create: :num1{:42bla};

.say for Bla.^all.map({ .num1<bla> });



'
SQL : CREATE TABLE bla(
   id integer NOT NULL primary key AUTOINCREMENT,
   num1 json NOT NULL 
)
BIND: []
SQL : INSERT INTO bla(
   num1
)
VALUES(
   ?
)
BIND: ["\{\n  \"bla\": 42\n}"]
SQL : SELECT
   bla.id , bla.num1 
FROM
   bla
WHERE
   _rowid_ = last_insert_rowid()
LIMIT 1
BIND: []
SQL : SELECT
   json_extract(bla.num1, '$.bla') as "data_1"
FROM
   bla
BIND: []
42