1 package DBIx::Class::CDBICompat::Triggers;
9 $self->call_trigger('before_create');
10 $self->NEXT::ACTUAL::insert(@_);
11 $self->call_trigger('after_create');
17 $self->call_trigger('before_update');
18 my @to_update = keys %{$self->{_dirty_columns} || {}};
19 return -1 unless @to_update;
20 $self->NEXT::ACTUAL::update(@_);
21 $self->call_trigger('after_update');
27 $self->call_trigger('before_delete') if ref $self;
28 $self->NEXT::ACTUAL::delete(@_);
29 $self->call_trigger('after_delete') if ref $self;
34 my ($self, $column, $value, @rest) = @_;
35 my $vals = { $column => $value };
36 $self->call_trigger("before_set_${column}", $value, $vals);
37 return $self->NEXT::ACTUAL::store_column($column, $vals->{$column});