{"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 }\nmy $*RED-DEBUG = True;\n.say for $a.bs.map: *.id\n\n'\nSQL : SELECT\n   bbb.id as \"data_1\"\nFROM\n   bbb\nWHERE\n   bbb.a_id = ?\nBIND: [1]\n1\n2\n3","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/8KXxMbQm","modified":1552602293,"id":"8KXxMbQm","size":519,"lines":23,"own_paste":false,"theme":"","date":1552602293}