File Coverage

blib/lib/DBIx/Class/CDBICompat/AutoUpdate.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	10	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	0	2	0.0
total	12	44	27.2

package # hide from PAUSE
    DBIx::Class::CDBICompat::AutoUpdate;

use strict;
use warnings;

use base 'DBIx::Class';

__PACKAGE__->mk_group_accessors( inherited => '__AutoCommit' );

sub set_column {
  my $self = shift;
  my $ret = $self->next::method(@_);
  $self->update if ($self->autoupdate && $self->{_in_storage});
  return $ret;
}

sub autoupdate {
        my $proto = shift;
        ref $proto
          ? $proto->_obj_autoupdate(@_)
          : $proto->_class_autoupdate(@_) ;
}

sub _obj_autoupdate {
        my ($self, $set) = @_;
        my $class = ref $self;
        $self->{__AutoCommit} = $set if defined $set;
        defined $self->{__AutoCommit}
                ? $self->{__AutoCommit}
                : $class->_class_autoupdate;
}

sub _class_autoupdate {
        my ($class, $set) = @_;
        $class->__AutoCommit($set) if defined $set;
        return $class->__AutoCommit;
}

1;