# Pastebin LcPYe8Zl
$ perl6 -MRed -e '


model Bla {
   has Str $.bla is column;
   has Str @.ble is column{ :inflate{ @ = .words }, :deflate{ .join: " " } };
}

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

Bla.^create-table;
Bla.^create: :bla<test1>, :ble<a b c>;
Bla.^create: :bla<test2>, :ble<X Y Z>;
Bla.^create: :bla<test3>, :ble<1 2 3>;

.say for Bla.^all


'
SQL : CREATE TABLE bla(
   bla varchar(255) NOT NULL  ,
   ble varchar(255) NOT NULL  
)
BIND: []
SQL : INSERT INTO bla(
   ble,
   bla
)
VALUES(
   ?,
   ?
)
BIND: ["a b c", "test1"]
SQL : INSERT INTO bla(
   ble,
   bla
)
VALUES(
   ?,
   ?
)
BIND: ["X Y Z", "test2"]
SQL : INSERT INTO bla(
   ble,
   bla
)
VALUES(
   ?,
   ?
)
BIND: ["1 2 3", "test3"]
SQL : SELECT
   bla.bla , bla.ble 
FROM
   bla
BIND: []
Bla.new(bla => "test1", ble => $["a", "b", "c"])
Bla.new(bla => "test2", ble => $["X", "Y", "Z"])
Bla.new(bla => "test3", ble => $["1", "2", "3"])