update my own contrib entry
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / DestroyWarning.pm
CommitLineData
c0e7b4e5 1package # hide from PAUSE
2 DBIx::Class::CDBICompat::DestroyWarning;
a3018bd3 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;