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;