{"body":"diff --git a/examples/case-study-1/load-db.p6 b/examples/case-study-1/load-db.p6\nindex 8251b92..73a1a63 100755\n--- a/examples/case-study-1/load-db.p6\n+++ b/examples/case-study-1/load-db.p6\n@@ -5,70 +5,10 @@ use Red;\n use lib <./lib>;\n use OurFuncs;\n \n-=begin comment\n-# do not know how to 'use' these yet:\n-#model Person {...}\n use Present;\n use Attend;\n use Email;\n use Person;\n-=end comment\n-\n-#=====================================================================\n-# TODO Successfully split the following models into a lib directory as\n-#      individual packages and 'use' them in this script and the\n-#      'query-db.p6' and 'update-db.p6' scripts.\n-#=====================================================================\n-\n-model Person {...}\n-\n-model Email is rw {\n-    # relationship\n-    has UInt $!person-id is referencing{:column<key>, :model<Person>};\n-    has Person $.person  is relationship{:column<key>, :model<Person>};\n-\n-    # data:\n-    has Str  $.email     is column;\n-    has Str  $.notes     is column{:nullable};\n-    has UInt $.status    is column{:nullable};\n-}\n-\n-model Present is rw {\n-    # relationship\n-    has UInt $!person-id is referencing{:column<key>, :model<Person>};\n-    has Person $.person  is relationship{:column<key>, :model<Person>};\n-\n-    # data:\n-    has UInt $.year      is column;\n-    has Str  $.notes     is column{:nullable};\n-}\n-\n-model Attend is rw {\n-    # relationship\n-    has UInt $!person-id is referencing{:column<key>, :model<Person>};\n-    has Person $.person  is relationship{:column<key>, :model<Person>};\n-\n-    # data:\n-    has UInt $.year      is column;\n-    has Str  $.notes     is column{:nullable};\n-}\n-\n-model Person is rw {\n-    # note the following is for user-defined keys\n-    has Str $.key          is id;\n-\n-    # data:\n-    has Str $.last         is column;\n-    has Str $.first        is column;\n-    has Str $.notes        is column{:nullable};\n-\n-    # relations\n-    has Attend @.attends   is relationship({.person-id }, :model<Attend>);\n-    has Email @.emails     is relationship({.person-id }, :model<Email>);\n-    has Present @.presents is relationship({.person-id }, :model<Present>);\n-}\n-#==========================================================\n-\n \n my $f   = './data/attendees.csv';\n my $dbf = './data/ctech.sqlite';\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/DbaNT9NP","modified":1552767854,"id":"DbaNT9NP","size":2310,"lines":75,"own_paste":false,"theme":"","date":1552767854}