# Pastebin 0NSSY3gQ
use Red;

model Comment {
    has UInt $!id               is serial;
    has Str  $.body             is column;
}

model Post {
    has UInt $.id is serial;
    has Str  $.title is unique;

    has Int  $!comment-id is referencing{ :model<Comment>, :column<id> };
    has      @.comments   is relationship( *.comment-id, :model<Comment> );
}

model Photo {
    has UInt $.id is serial;
    has Str  $.path is unique;

    has Int  $!comment-id is referencing{ :model<Comment>, :column<id> };
    has      @.comments   is relationship( *.comment-id, :model<Comment> );
}

red-defaults "SQLite";

my $*RED-DEBUG = True;
schema(Comment, Post, Photo).create;

my $post = Post.^create: :title<bla>;
$post.comments.append :body<blabla>;

my $photo = Photo.^create: :path<ble>;
$photo.comments.append: :body<bleble>;