-package DBIx::Class::CDBICompat::AutoUpdate;
+package # hide from PAUSE
+ DBIx::Class::CDBICompat::AutoUpdate;
use strict;
use warnings;
-use base qw/Class::Data::Inheritable/;
+use base 'DBIx::Class';
-__PACKAGE__->mk_classdata('__AutoCommit');
+__PACKAGE__->mk_group_accessors( inherited => '__AutoCommit' );
sub set_column {
my $self = shift;
- my $ret = $self->NEXT::set_column(@_);
- $self->update if ($self->autoupdate && $self->{_in_database});
+ my $ret = $self->next::method(@_);
+ $self->update if ($self->autoupdate && $self->{_in_storage});
return $ret;
}