{"body":"$ perl6 -MRed -e '\n\nmodel A { has UInt $.id is serial }\nmodel B { has UInt $.id is serial; has UInt $.a-id is referencing{ A.id } }\n\nsay B.^columns.keys.grep: *.column.references\n\n'\n(UInt $!a-id)","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/dnCOnIIc","modified":1552601738,"id":"dnCOnIIc","size":195,"lines":9,"own_paste":false,"theme":"","date":1552601738}