1 package DBIx::Class::CDBICompat::ColumnCase;
7 sub _register_column_group {
8 my ($class, $group, @cols) = @_;
9 return $class->NEXT::_register_column_group($group => map lc, @cols);
12 sub _register_columns {
13 my ($class, @cols) = @_;
14 return $class->NEXT::_register_columns(map lc, @cols);
18 my ($class, $get, @rest) = @_;
19 return $class->NEXT::get(lc $get, @rest);
23 my ($class, $set, @rest) = @_;
24 return $class->NEXT::set(lc $set, @rest);
28 my ($class, $col) = @_;
29 return $class->NEXT::find_column(lc $col);
33 my ($class, $type, @fields) = @_;
35 $fields{$_} = 1 for @fields,
36 map lc, grep { !defined &{"${class}::${_}"} } @fields;
37 return $class->NEXT::_mk_accessors($type, keys %fields);