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

diff --git a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
index c847a39..1e76186 100644
--- a/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
+++ b/lib/DBIx/Class/CDBICompat/AttributeAPI.pm
@@ -11,7 +11,7 @@ sub _attrs {
   return @{$self->{_column_data}}{@atts};
 }
 
-*_attr = \&_attrs;
+sub _attr { shift->_attrs(@_) }
 
 sub _attribute_store {
   my $self   = shift;