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