{"body":"perl6 -I. -MRed -e '\n\n\n\nmodel AAA {\n    has UInt $!id is serial;\n    has @.many    is relationship( *.a-id, :model<BBB> );\n}\n\n\nmodel BBB {\n    has UInt $!id    is serial;\n    has UInt $!a-id  is referencing( *.id, :model<AAA> );\n    has $.a          is relationship( *.a-id, :model<AAA> );\n    has Int  $.value is column;\n}\n\n\nred-defaults default => database \"SQLite\";\n\n\nAAA.^create-table; BBB.^create-table;\n\n\nmy $a = AAA.^create;\n$a.many.create: :value($_) for ^10;    \n\n\n.say for $a.many\n\n'\nBBB.new(value => 0)\nBBB.new(value => 1)\nBBB.new(value => 2)\nBBB.new(value => 3)\nBBB.new(value => 4)\nBBB.new(value => 5)\nBBB.new(value => 6)\nBBB.new(value => 7)\nBBB.new(value => 8)\nBBB.new(value => 9)","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/6VwUjDE5","modified":1577370920,"id":"6VwUjDE5","size":693,"lines":41,"own_paste":false,"theme":"","date":1577370920}