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

##</code><code>##

Package Author;
Author->has_many('books', [ AuthorBook => 'book' ], 'author');