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