unknownplace.org

よくわかんないんだが、CDBIのtriggerぽいことをするには

sub insert {
    my $self = shift;
    $self->created_date( DateTime->now ) unless $self->created_date;
    $self->SUPER::insert(@_);
}

みたいな感じでいいんかなぁ。