package Foo; use base 'Class::DBI'; __PACKAGE__->columns( All => qw/test1 test2/ ); __PACKAGE__->add_trigger(before_create => \&trigger_code); sub trigger_code { my $self = shift; $self->test2('123') unless $self->test2; }