1package # hide from PAUSE 2 DBIx::Class::CDBICompat::DestroyWarning; 3 4use strict; 5use warnings; 6 7sub DESTROY { 8 my ($self) = @_; 9 my $class = ref $self; 10 warn "$class $self destroyed without saving changes to " 11 .join(', ', keys %{$self->{_dirty_columns} || {}}) 12 if keys %{$self->{_dirty_columns} || {}}; 13} 14 151; 16