File Coverage

blib/lib/DBIx/Class/CDBICompat/DestroyWarning.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	0	8	0.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	35	57.1

package # hide from PAUSE
    DBIx::Class::CDBICompat::DestroyWarning;

use strict;
use warnings;

use base 'DBIx::Class';

use DBIx::Class::_Util 'detected_reinvoked_destructor';
use namespace::clean;

sub DESTROY {
  return if &detected_reinvoked_destructor;

  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;