Refactored HasA to use InflateColumn

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

diff --git a/lib/DBIx/Class/CDBICompat/Triggers.pm b/lib/DBIx/Class/CDBICompat/Triggers.pm
index 46a0d49..3bf8070 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Triggers.pm
+++ b/lib/DBIx/Class/CDBICompat/Triggers.pm
@@ -1,5 +1,7 @@
 package DBIx::Class::CDBICompat::Triggers;
 
+use strict;
+use warnings;
 use Class::Trigger;
 
 sub insert {
@@ -28,4 +30,11 @@ sub delete {
   return $self;
 }
 
+sub store_column {
+  my ($self, $column, $value, @rest) = @_;
+  my $vals = { $column => $value };
+  $self->call_trigger("before_set_${column}", $value, $vals);
+  return $self->NEXT::ACTUAL::store_column($column, $vals->{$column});
+}
+
 1;