[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / DestroyWarning.pm

package DBIx::Class::CDBICompat::DestroyWarning;

use strict;
use warnings;

sub DESTROY {
  my ($self) = @_;
  my $class = ref $self;
  warn "$class $self destroyed without saving changes to "
         .join(', ', keys %{$self->{_dirty_columns} || {}})
    if keys %{$self->{_dirty_columns} || {}};
}

1;
Commit	Line	Data
a3018bd3	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;