{"body":"$ perl6 -MRed -e '\nmodel Bla {\n   has UInt $.id is id;\n   has Str  $.bla is column{ :nullable };\n}\nmy $*RED-DB = database \"SQLite\"; Bla.^create-table;\nfor (|<a b c>, Nil).roll(10) { Bla.^create: :bla($_) }\n\n.say for Bla.^all\n\n'\nBla.new(id => 1, bla => \"c\")\nBla.new(id => 2, bla => Any)\nBla.new(id => 3, bla => \"c\")\nBla.new(id => 4, bla => \"a\")\nBla.new(id => 5, bla => \"c\")\nBla.new(id => 6, bla => Any)\nBla.new(id => 7, bla => \"c\")\nBla.new(id => 8, bla => Any)\nBla.new(id => 9, bla => \"c\")\nBla.new(id => 10, bla => Any)","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/zbIa4F2t","modified":1553082918,"id":"zbIa4F2t","size":518,"lines":21,"own_paste":false,"theme":"","date":1553082918}