{"body":"MBP-de-Fernando:test-altreus fernando$ cat Schema.pm6 \nuse Red;\n\nmodel Student { ... }\n\nmodel Organisation is rw {\n    has Int     $.id        is id;\n    has Student @.students  is relationship{.org-id };\n}\n\nmodel Student is rw {\n    has Str          $.email     is id;\n    has Str          $.name      is column;\n    has Int          $!org-id    is referencing{ Organisation.id };\n\n    has Organisation $.org       is relationship{ .id };\n}\nMBP-de-Fernando:test-altreus fernando$ perl6 -e '\nuse lib \".\";\n\nuse Red;\nuse Schema;\n\nmy $*RED-DB = database \"SQLite\", :database<./hootboxes.db>;\n\nOrganisation.^create-table: :if-not-exists;\nStudent.^create-table: :if-not-exists;\n\n'\nMBP-de-Fernando:test-altreus fernando$","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/zpuYMmSl","modified":1559250758,"id":"zpuYMmSl","size":713,"lines":30,"own_paste":false,"theme":"","date":1559250758}