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_column(lc $get, @rest);
23 my ($class, $set, @rest) = @_;
24 return $class->NEXT::set_column(lc $set, @rest);
28 my ($class, $set, @rest) = @_;
29 return $class->NEXT::store_column(lc $set, @rest);
33 my ($class, $col) = @_;
34 return $class->NEXT::find_column(lc $col);
37 sub _mk_group_accessors {
38 my ($class, $type, $group, @fields) = @_;
40 $fields{$_} = 1 for @fields,
41 map lc, grep { !defined &{"${class}::${_}"} } @fields;
42 return $class->NEXT::_mk_group_accessors($type, $group, keys %fields);