err.txt

SQL : CREATE TABLE person(
   id integer NOT NULL primary key AUTOINCREMENT,
   key varchar(255) NOT NULL ,
   last varchar(255) NOT NULL ,
   first varchar(255) NOT NULL ,
   notes varchar(255) NULL ,
   UNIQUE (key)
)
BIND: []
SQL : CREATE TABLE attend(
   year integer NOT NULL ,
   notes varchar(255) NULL ,
   person_id integer NULL references person(id)
)
BIND: []
SQL : CREATE TABLE email(
   email varchar(255) NOT NULL ,
   notes varchar(255) NULL ,
   status integer NULL ,
   person_id integer NULL references person(id)
)
BIND: []
SQL : CREATE TABLE present(
   year integer NOT NULL ,
   notes varchar(255) NULL ,
   person_id integer NULL references person(id)
)
BIND: []
SQL : SELECT
   count(*) > 0 as "data_1"
FROM
   person
WHERE
   person.key = ?
BIND: ["|abraham|sally|abraham\@example.com|sally\@example2.com|"]
SQL : INSERT INTO person(
   key,
   first,
   last
)
VALUES(
   ?,
   ?,
   ?
)
BIND: ["|abraham|sally|abraham\@example.com|sally\@example2.com|", "Sally", "Abraham"]
SQL : SELECT
   person.id , person.key , person.last , person.first , person.notes
FROM
   person
WHERE
   _rowid_ = last_insert_rowid()
LIMIT 1
BIND: []
No such method 'person-id' for invocant of type 'Mu'
  in block  at /usr/local/people/tbrowde/mydata/tbrowde-home-bzr/perl6/perl6-repo-forks/Red/examples/case-study-1/lib/Person.pm6 (Person) line 29
  in method <anon> at /usr/local/people/tbrowde/mydata/tbrowde-home-bzr/perl6/perl6-repo-forks/Red/examples/case-study-1/../../lib/Red/Attr/Relationship.pm6 (Red::Attr::Relationship) line 47
  in method <anon> at /usr/local/people/tbrowde/mydata/tbrowde-home-bzr/perl6/perl6-repo-forks/Red/examples/case-study-1/../../lib/MetamodelX/Red/Relationship.pm6 (MetamodelX::Red::Relationship) line 61
  in block  at load-db.p6 line 93
  in block <unit> at load-db.p6 line 88