X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FGetSet.pm;h=e9480488c37c4a07100678b58a88f60b3fd3bab8;hb=6de819183a4d44d0bf0a7f9db9e62efe3cf020a6;hp=a11baeb1f8de4fe35a34de7afa56d88a3af554ea;hpb=e60dc79fcd4d6318e83584b826526e65048b86a9;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/GetSet.pm b/lib/DBIx/Class/CDBICompat/GetSet.pm
index a11baeb..e948048 100644
--- a/lib/DBIx/Class/CDBICompat/GetSet.pm
+++ b/lib/DBIx/Class/CDBICompat/GetSet.pm
@@ -4,7 +4,7 @@ package # hide from PAUSE
 use strict;
 use warnings;
 
-#use base qw/Class::Accessor/;
+use base 'DBIx::Class';
 
 sub get {
   my ($self, @cols) = @_;
@@ -21,7 +21,11 @@ sub set {
   # set_columns() is going to do a string comparison before setting.
   # This breaks on DateTime objects (whose comparison is arguably broken)
   # so we stringify anything first.
-  $data{$_} = "$data{$_}" for keys %data;
+  for my $key (keys %data) {
+    next unless ref $data{$key};
+    $data{$key} = "$data{$key}";
+  }
+
   return shift->set_columns(\%data);
 }