Commit | Line | Data |
c0e7b4e5 |
1 | package # hide from PAUSE |
2 | DBIx::Class::CDBICompat::DestroyWarning; |
a3018bd3 |
3 | |
4 | use strict; |
5 | use warnings; |
e1d9e578 |
6 | use DBIx::Class::_Util 'detected_reinvoked_destructor'; |
3d56e026 |
7 | use namespace::clean; |
a3018bd3 |
8 | |
9 | sub DESTROY { |
e1d9e578 |
10 | return if &detected_reinvoked_destructor; |
3d56e026 |
11 | |
a3018bd3 |
12 | my ($self) = @_; |
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} || {}}; |
17 | } |
18 | |
19 | 1; |