X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FAttributeAPI.pm;h=c847a3913774958591f178ad0e30a3d1be0da100;hb=5e0eea3522876a30453af24097507198bbbc9409;hp=09c955fc3223fb51b1ef8fc72b8b36d7c2ed3277;hpb=bf5ecff9ac30e6acfd912ce3c72ee86b73b775dc;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
index 09c955f..c847a39 100644
--- a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
+++ b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
@@ -1,9 +1,11 @@
-package # hide from PAUSE 
+package # hide from PAUSE
     DBIx::Class::CDBICompat::AttributeAPI;
 
 use strict;
 use warnings;
 
+use base 'DBIx::Class';
+
 sub _attrs {
   my ($self, @atts) = @_;
   return @{$self->{_column_data}}{@atts};
@@ -14,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 {
@@ -31,7 +32,7 @@ sub _attribute_delete {
 
 sub _attribute_exists {
   my ($self, $attr) = @_;
-  exists $self->{_column_data}{$attr};
+  $self->has_column_loaded($attr);
 }
 
 1;