Форум программистов [Powered by Invision Power Board]

Код

package MyDB::Result::Article;

__PACKAGE__->has_many('article_tags' => 'MyDB::Result::ArticleTag', 'article_id');
__PACKAGE__->many_to_many('tags' => 'article_tags', 'tag');

package MyDB::Result::Tag;

__PACKAGE__->has_many('tag_articles' => 'MyDB::Result::ArticleTag', 'tag_id');
__PACKAGE__->many_to_many('articles' => 'tag_articles', 'article');

package MyDB::Result::ArticleTag;

__PACKAGE__->belongs_to('article' => 'MyDB::Result::Article', 'article_id');
__PACKAGE__->belongs_to('tag' => 'MyDB::Result::Tag', 'tag_id');


package main;

use MyDB;

my $scheme = MyDB->connect();

#  выбираем все статьи и заодно для каждой статьи подгружаем теги.
$articles = $scheme->resultset('Article')->search(undef, {
    prefetch => 'tags'
});

# берем первую статью и получаем ее теги
$article->next->tags;