X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FColumnCase.pm;h=eb4b0c022a1434ec9031c85a225086329cfa9d60;hb=546f1cd924847a9ee1754c978de678ae0e3261e0;hp=a7c62a962810c16d3f61f93efd04fd9f0c1ef9da;hpb=c79bd6e9b40607d08e41879ecad0804c38bf14dc;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/ColumnCase.pm b/lib/DBIx/Class/CDBICompat/ColumnCase.pm index a7c62a9..eb4b0c0 100644 --- a/lib/DBIx/Class/CDBICompat/ColumnCase.pm +++ b/lib/DBIx/Class/CDBICompat/ColumnCase.pm @@ -4,8 +4,6 @@ package # hide from PAUSE use strict; use warnings; -use base qw/DBIx::Class/; - sub _register_column_group { my ($class, $group, @cols) = @_; return $class->next::method($group => map lc, @cols); @@ -18,10 +16,10 @@ sub add_columns { sub has_a { my($self, $col, @rest) = @_; - + $self->_declare_has_a(lc $col, @rest); $self->_mk_inflated_column_accessor($col); - + return 1; }