X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FColumnCase.pm;h=eb4b0c022a1434ec9031c85a225086329cfa9d60;hb=1415f198da91a23911972ad06b6dafaf6f4c0e8f;hp=d6db87bb9555a7584d462bf641e198df092801d1;hpb=5e85c6715197a71ec9bd016992e4e05ae90b14ce;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/CDBICompat/ColumnCase.pm b/lib/DBIx/Class/CDBICompat/ColumnCase.pm index d6db87b..eb4b0c0 100644 --- a/lib/DBIx/Class/CDBICompat/ColumnCase.pm +++ b/lib/DBIx/Class/CDBICompat/ColumnCase.pm @@ -16,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; }