has_a works

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Triggers.pm

diff --git a/lib/DBIx/Class/CDBICompat/Triggers.pm b/lib/DBIx/Class/CDBICompat/Triggers.pm
index 21826f9..46a0d49 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Triggers.pm
+++ b/lib/DBIx/Class/CDBICompat/Triggers.pm
@@ -5,7 +5,7 @@ use Class::Trigger;
 sub insert {
   my $self = shift;
   $self->call_trigger('before_create');
-  $self->NEXT::insert(@_);
+  $self->NEXT::ACTUAL::insert(@_);
   $self->call_trigger('after_create');
   return $self;
 }
@@ -15,7 +15,7 @@ sub update {
   $self->call_trigger('before_update');
   my @to_update = keys %{$self->{_dirty_columns} || {}};
   return -1 unless @to_update;
-  $self->NEXT::update(@_);
+  $self->NEXT::ACTUAL::update(@_);
   $self->call_trigger('after_update');
   return $self;
 }
@@ -23,7 +23,7 @@ sub update {
 sub delete {
   my $self = shift;
   $self->call_trigger('before_delete') if ref $self;
-  $self->NEXT::delete(@_);
+  $self->NEXT::ACTUAL::delete(@_);
   $self->call_trigger('after_delete') if ref $self;
   return $self;
 }