1 package DBIx::Class::CDBICompat::AutoUpdate;
6 use base qw/Class::Data::Inheritable/;
8 __PACKAGE__->mk_classdata('__AutoCommit');
12 my $ret = $self->next::method(@_);
13 $self->update if ($self->autoupdate && $self->{_in_storage});
20 ? $proto->_obj_autoupdate(@_)
21 : $proto->_class_autoupdate(@_) ;
25 my ($self, $set) = @_;
26 my $class = ref $self;
27 $self->{__AutoCommit} = $set if defined $set;
28 defined $self->{__AutoCommit}
29 ? $self->{__AutoCommit}
30 : $class->_class_autoupdate;
33 sub _class_autoupdate {
34 my ($class, $set) = @_;
35 $class->__AutoCommit($set) if defined $set;
36 return $class->__AutoCommit;