{"body":"$ perl6 -MRed -e '\n\n\nmodel Bla {\n   has Str $.bla is column;\n   has Str @.ble is column{ :inflate{ @ = .words }, :deflate{ .join: \" \" } };\n}\n\nmy $*RED-DB = database \"SQLite\";\nmy $*RED-DEBUG = True;\n\nBla.^create-table;\nBla.^create: :bla<test1>, :ble<a b c>;\nBla.^create: :bla<test2>, :ble<X Y Z>;\nBla.^create: :bla<test3>, :ble<1 2 3>;\n\n.say for Bla.^all\n\n\n'\nSQL : CREATE TABLE bla(\n   bla varchar(255) NOT NULL  ,\n   ble varchar(255) NOT NULL  \n)\nBIND: []\nSQL : INSERT INTO bla(\n   ble,\n   bla\n)\nVALUES(\n   ?,\n   ?\n)\nBIND: [\"a b c\", \"test1\"]\nSQL : INSERT INTO bla(\n   ble,\n   bla\n)\nVALUES(\n   ?,\n   ?\n)\nBIND: [\"X Y Z\", \"test2\"]\nSQL : INSERT INTO bla(\n   ble,\n   bla\n)\nVALUES(\n   ?,\n   ?\n)\nBIND: [\"1 2 3\", \"test3\"]\nSQL : SELECT\n   bla.bla , bla.ble \nFROM\n   bla\nBIND: []\nBla.new(bla => \"test1\", ble => $[\"a\", \"b\", \"c\"])\nBla.new(bla => \"test2\", ble => $[\"X\", \"Y\", \"Z\"])\nBla.new(bla => \"test3\", ble => $[\"1\", \"2\", \"3\"])","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/LcPYe8Zl","modified":1552476673,"id":"LcPYe8Zl","size":916,"lines":60,"own_paste":false,"theme":"","date":1552476673}