Added tests for the core APIs, refactored some

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

diff --git a/lib/DBIx/Class/CDBICompat/AutoUpdate.pm b/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
index e61e167..f576276 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
+++ b/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
@@ -7,10 +7,11 @@ use base qw/Class::Data::Inheritable/;
 
 __PACKAGE__->mk_classdata('__AutoCommit');
 
-sub set {
+sub set_column {
   my $self = shift;
-  $self->NEXT::set(@_);
+  my $ret = $self->NEXT::set_column(@_);
   $self->update if ($self->autoupdate && $self->{_in_database});
+  return $ret;
 }
 
 sub autoupdate {