From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 18 Jun 2006 14:42:20 +0000 (+0000)
Subject: switched CDBICompat::AttributeAPI to using 'real' methods
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f7e92223b6cef250ca4dd6004dd43f1794075d3;p=dbsrgits%2FDBIx-Class-Historic.git

switched CDBICompat::AttributeAPI to using 'real' methods
---

diff --git a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
index b3d4752..abf9ac0 100644
--- a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
+++ b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
@@ -14,8 +14,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 +30,7 @@ sub _attribute_delete {
 
 sub _attribute_exists {
   my ($self, $attr) = @_;
-  exists $self->{_column_data}{$attr};
+  $self->has_column_loaded($attr);
 }
 
 1;