Remove Class::Data::Inheritable and use CAG 'inherited' style accessors

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

diff --git a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
index 2e29f02..998bc5d 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
+++ b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
@@ -3,11 +3,14 @@ package # hide from PAUSE
 
 use strict;
 use warnings;
-use DBIx::Class::_Util 'detect_reinvoked_destructor';
+
+use base 'DBIx::Class';
+
+use DBIx::Class::_Util 'detected_reinvoked_destructor';
 use namespace::clean;
 
 sub DESTROY {
-  return if &detect_reinvoked_destructor;
+  return if &detected_reinvoked_destructor;
 
   my ($self) = @_;
   my $class = ref $self;