gistfile1.txt

class Post {
  does Resource;

  has $id does Property(:type(Serial));
  has $title does Property(:type(String));
  has Text $body does Property;

  has_many('Comments');
}

class Comment {
  does Resource;

  has $id does Property(:type(Serial));
  has String $posted_by does Property;

  belongs_to('Post');
}

{ 
  my $post = Post.new(title => "hello World", body => "...");
  $post.save;
  $post.comments.new(posted_by => "Me");
  $post.comments.first.save; 
}

{ 
  my $post = Post.get(title => 'hello World'); 
  $post.body = 'something else';
  $post.save; 
}