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

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

diff --git a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
index 8dee47f..c847a39 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
+++ b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
@@ -1,4 +1,10 @@
-package DBIx::Class::CDBICompat::AttributeAPI;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::AttributeAPI;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class';
 
 sub _attrs {
   my ($self, @atts) = @_;
@@ -10,8 +16,7 @@ sub _attrs {
 sub _attribute_store {
   my $self   = shift;
   my $vals   = @_ == 1 ? shift: {@_};
-  my (@cols) = keys %$vals;
-  @{$self->{_column_data}}{@cols} = @{$vals}{@cols};
+  $self->store_column($_, $vals->{$_}) for keys %{$vals};
 }
 
 sub _attribute_set {
@@ -27,7 +32,7 @@ sub _attribute_delete {
 
 sub _attribute_exists {
   my ($self, $attr) = @_;
-  exists $self->{_column_data}{$attr};
+  $self->has_column_loaded($attr);
 }
 
 1;