{"body":" $ perl6 -MRed -e '\nmodel B is table<bbb> { ... }\nmodel A is table<aaa> { has UInt $.id is serial; has B @.bs is relationship{ .a-id } }\nmodel B { has UInt $.id is serial; has UInt $.a-id is referencing{ A.id }; has A $.a is relationship{ .a-id } }\n\nmy $*RED-DB = database \"SQLite\"; A.^create-table; B.^create-table;\nmy $a = A.^create;\n\ngiven $a { .bs.create; .bs.create; .bs.create }\n\n.say for $a.bs\n\n'\nB.new(id => 1, a-id => 1, a => A.new(id => 1, bs => B::ResultSeq.new(chain => Red::AST::Chained.new(filter => Red::AST::Eq.new(op => \"=\", returns => Bool, left => Red::Column.new(attr => bbb.a_id, attr-name => \"a-id\", id => Bool::False, auto-increment => Bool::False, references => -> ;; $_? is raw { #`(Block|140374268263096) ... }, nullable => Bool::True, name => \"a_id\", name-alias => \"a_id\", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str), right => Red::AST::Value.new(value => 1, column => Red::Column, type => Int), bind-left => Bool::False, bind-right => Bool::True), limit => Int, post => Callable, order => Array[Red::AST].new(), group => Array[Red::AST].new(), table-list => [], next => Red::AST::Chained), update => (my Red::AST %), comments => Array[Red::AST::Comment].new())))\nB.new(id => 2, a-id => 1, a => A.new(id => 1, bs => B::ResultSeq.new(chain => Red::AST::Chained.new(filter => Red::AST::Eq.new(op => \"=\", returns => Bool, left => Red::Column.new(attr => bbb.a_id, attr-name => \"a-id\", id => Bool::False, auto-increment => Bool::False, references => -> ;; $_? is raw { #`(Block|140374268263096) ... }, nullable => Bool::True, name => \"a_id\", name-alias => \"a_id\", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str), right => Red::AST::Value.new(value => 1, column => Red::Column, type => Int), bind-left => Bool::False, bind-right => Bool::True), limit => Int, post => Callable, order => Array[Red::AST].new(), group => Array[Red::AST].new(), table-list => [], next => Red::AST::Chained), update => (my Red::AST %), comments => Array[Red::AST::Comment].new())))\nB.new(id => 3, a-id => 1, a => A.new(id => 1, bs => B::ResultSeq.new(chain => Red::AST::Chained.new(filter => Red::AST::Eq.new(op => \"=\", returns => Bool, left => Red::Column.new(attr => bbb.a_id, attr-name => \"a-id\", id => Bool::False, auto-increment => Bool::False, references => -> ;; $_? is raw { #`(Block|140374268263096) ... }, nullable => Bool::True, name => \"a_id\", name-alias => \"a_id\", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str), right => Red::AST::Value.new(value => 1, column => Red::Column, type => Int), bind-left => Bool::False, bind-right => Bool::True), limit => Int, post => Callable, order => Array[Red::AST].new(), group => Array[Red::AST].new(), table-list => [], next => Red::AST::Chained), update => (my Red::AST %), comments => Array[Red::AST::Comment].new())))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/gAVdZv4N","modified":1552602205,"id":"gAVdZv4N","size":3016,"lines":16,"own_paste":false,"theme":"","date":1552602205}