Package Author;
Author->has_many('_book_links', 'AuthorBook', 'author');
sub books { return map { $_->book } shift->_book_links; }