Без использования базы данных я хотел бы создать новый объект DBIx::Class (песню) и прикрепить к нему несколько связанных объектов (тегов) multi-to-multi. Затем я хотел бы получить доступ к тегам таким образом:
my @tags = $song->tags();
Я уже могу это сделать, если сначала вставлю объекты в базу данных, но как это сделать без использования insert()?
Ниже мой код, который выводит имя созданного тега. Теперь я хотел бы добиться этого без использования вставки.
Это просто тестовый код. В противном случае у меня есть более сложная схема, которая используется с MySql. Теперь я также использую Solr и хочу преобразовать ответ Solr в объекты DBIx::Class (без доступа к базе данных).
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
package MySchema::Song;
use base 'DBIx::Class';
__PACKAGE__->load_components('Core');
__PACKAGE__->table("artist");
__PACKAGE__->add_columns(
id => { data_type => 'integer', is_nullable => 0, is_auto_increment => 1 },
name => { data_type => 'varchar', is_nullable => 1, },
);
__PACKAGE__->set_primary_key('id');
__PACKAGE__->has_many('song_tag' => 'MySchema::SongTag', 'song_id');
__PACKAGE__->many_to_many('tags' => 'song_tag', 'tag');
package MySchema::Tag;
use base 'DBIx::Class';
__PACKAGE__->load_components('Core');
__PACKAGE__->table("tag");
__PACKAGE__->add_columns(
id => { data_type => 'integer', is_nullable => 0, is_auto_increment => 1 },
name => { data_type => 'varchar', is_nullable => 1, },
);
__PACKAGE__->set_primary_key('id');
__PACKAGE__->has_many('song_tag' => 'MySchema::SongTag', 'tag_id');
__PACKAGE__->many_to_many('songs' => 'song_tag', 'song');
package MySchema::SongTag;
use base 'DBIx::Class';
__PACKAGE__->load_components('Core');
__PACKAGE__->table("song_tag");
__PACKAGE__->add_columns(
song_id => { data_type => 'integer', is_nullable => 0 },
tag_id => { data_type => 'integer', is_nullable => 0 },
);
__PACKAGE__->set_primary_key( qw(song_id tag_id) );
__PACKAGE__->belongs_to('song' => 'MySchema::Song','song_id');
__PACKAGE__->belongs_to('tag' => 'MySchema::Tag', 'tag_id');
package MySchema;
use base 'DBIx::Class::Schema';
__PACKAGE__->load_classes(qw(Song Tag SongTag));
package main;
my $schema;
$schema = MySchema->connect('dbi:SQLite:dbname=:memory:');
$schema->deploy;
my $song = $schema->resultset('Song')->new_result({ id => 1, name => 'Song name' });
my $tag = $schema->resultset('Tag')->new_result({ id => 1, name => 'Tag name' });
my $song_tag = $schema->resultset('SongTag')->new({
song => $song,
tag => $tag,
});
$song->add_to_tags($tag);
#$tag->add_to_songs($song); # one or another
$song->insert;
$tag->insert;
# This works if objects are previously inserted
foreach my $tag ($song->tags) {
print $tag->name."\n";
}
1;
$song->add_to_tags({ ... })
вызывает запись в БД, а$song->tags()
вызывает чтение из БД. Я думал, что может быть способ установить отношения без доступа к БД, потому что, когда песни выбираются из БД вместе с тегами с использованием предварительной выборки, то нет доступа к БД при использовании$song->tags()
. - person Miha Lampret   schedule 02.01.2014