X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FColumnCase.pm;h=56bef61b3fb24ecdc3587459197c66cb59074b4c;hp=13bec9cbe77eeb800dcb560557a2cfd6106e9b72;hb=5e0eea3522876a30453af24097507198bbbc9409;hpb=d009cb7d393292037eff527a9f8bab93860224fb diff --git a/lib/DBIx/Class/CDBICompat/ColumnCase.pm b/lib/DBIx/Class/CDBICompat/ColumnCase.pm index 13bec9c..56bef61 100644 --- a/lib/DBIx/Class/CDBICompat/ColumnCase.pm +++ b/lib/DBIx/Class/CDBICompat/ColumnCase.pm @@ -4,6 +4,8 @@ package # hide from PAUSE use strict; use warnings; +use base 'DBIx::Class'; + sub _register_column_group { my ($class, $group, @cols) = @_; return $class->next::method($group => map lc, @cols);