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