# Pastebin dnCOnIIc
$ perl6 -MRed -e '

model A { has UInt $.id is serial }
model B { has UInt $.id is serial; has UInt $.a-id is referencing{ A.id } }

say B.^columns.keys.grep: *.column.references

'
(UInt $!a-id)