lib/DBIx/Class/CDBICompat/DestroyWarning.pm

   1 package DBIx::Class::CDBICompat::DestroyWarning;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub DESTROY {
   7   my ($self) = @_;
   8   my $class = ref $self;
   9   warn "$class $self destroyed without saving changes to "
  10          .join(', ', keys %{$self->{_dirty_columns} || {}})
  11     if keys %{$self->{_dirty_columns} || {}};
  12 }
  13
  14 1;