1 package DBIx::Class::CDBICompat::Triggers;
7 $self->call_trigger('before_create');
8 $self->NEXT::ACTUAL::insert(@_);
9 $self->call_trigger('after_create');
15 $self->call_trigger('before_update');
16 my @to_update = keys %{$self->{_dirty_columns} || {}};
17 return -1 unless @to_update;
18 $self->NEXT::ACTUAL::update(@_);
19 $self->call_trigger('after_update');
25 $self->call_trigger('before_delete') if ref $self;
26 $self->NEXT::ACTUAL::delete(@_);
27 $self->call_trigger('after_delete') if ref $self;