1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::DestroyWarning;
7 use base 'DBIx::Class';
9 use DBIx::Class::_Util 'detected_reinvoked_destructor';
13 return if &detected_reinvoked_destructor;
16 my $class = ref $self;
17 warn "$class $self destroyed without saving changes to "
18 .join(', ', keys %{$self->{_dirty_columns} || {}})
19 if keys %{$self->{_dirty_columns} || {}};