Commit | Line | Data |
---|---|---|
c0e7b4e5 | 1 | package # hide from PAUSE |
2 | DBIx::Class::CDBICompat::DestroyWarning; | |
a3018bd3 | 3 | |
4 | use strict; | |
5 | use warnings; | |
6 | ||
7 | sub 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 | ||
15 | 1; |