{"body":"$ for file in examples/blog/*; do echo \"================= $file ================\"; cat $file; done\n================= examples/blog/index.p6 ================\nunit package Test;\nrequire Post;\n\nsay \"OK\"\n================= examples/blog/Person.pm6 ================\nuse Red;\nrequire Person;\n\nmodel Person is rw {\n    has Int  \t\t$.id            is serial;\n    has Str  \t\t$.name          is column;\n    has ::(\"Post\")\t@.posts         is relationship{ .author-id };\n    method active-posts { @!posts.grep: not *.deleted }\n}\n================= examples/blog/Post.pm6 ================\nuse Red;\nrequire Post;\n\nmodel Post is rw {\n    has Int     \t$.id        is serial;\n    has Int     \t$!author-id is referencing{ ::(\"Person\").id };\n    has Str     \t$.title     is column{ :unique };\n    has Str     \t$.body      is column;\n    has ::(\"Person\")  \t$.author    is relationship{ .author-id };\n    has Bool    \t$.deleted   is column = False;\n    method delete { $!deleted = True; self.^save }\n}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/MIQsH4OL","modified":1538515727,"id":"MIQsH4OL","size":977,"lines":29,"own_paste":false,"theme":"","date":1538515727}