eiji8pou https://blog.hatena.ne.jp/eiji8pou/ eiji8pou's diary https://eiji8pou.hatenadiary.com/ Perl あるカラムに値を設定した場合、他のカラムがそれに追随して自動的に変更される方法。 結論から言えば、add_triggerを使う。 # columnの部分にカラム名が入る。 __PACKAGE__->add_trigger( after_set_column=>\&for_after_set_column ); sub for_after_set_column { my $self = shift; my $value = $self->get('column'); # 値を加工する。 $self->another_column($value); # 他のカラムに加工した値を設定する。 } 私は… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Feiji8pou.hatenadiary.com%2Fentry%2F20071014%2F1192334491" title="Class-DBIで連鎖的にカラムを設定する方法 - eiji8pou&#39;s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-10-14 13:01:31 rich https://eiji8pou.hatenadiary.com/entry/20071014/1192334491 1.0 100%