1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::ColumnCase;
7 use base qw/DBIx::Class/;
9 sub _register_column_group {
10 my ($class, $group, @cols) = @_;
11 return $class->next::method($group => map lc, @cols);
15 my ($class, @cols) = @_;
16 return $class->result_source_instance->add_columns(map lc, @cols);
20 my ($class, $col, @rest) = @_;
21 $class->next::method(lc($col), @rest);
22 $class->mk_group_accessors('inflated_column' => $col);
27 my ($class, $rel, $f_class, $f_key, @rest) = @_;
28 return $class->next::method($rel, $f_class, ( ref($f_key) ?
33 sub get_inflated_column {
34 my ($class, $get, @rest) = @_;
35 return $class->next::method(lc($get), @rest);
38 sub store_inflated_column {
39 my ($class, $set, @rest) = @_;
40 return $class->next::method(lc($set), @rest);
43 sub set_inflated_column {
44 my ($class, $set, @rest) = @_;
45 return $class->next::method(lc($set), @rest);
49 my ($class, $get, @rest) = @_;
50 return $class->next::method(lc($get), @rest);
54 my ($class, $set, @rest) = @_;
55 return $class->next::method(lc($set), @rest);
59 my ($class, $set, @rest) = @_;
60 return $class->next::method(lc($set), @rest);
64 my ($class, $col) = @_;
65 return $class->next::method(lc($col));
70 # Build a query hash for find, et al. Overrides Retrieve::_build_query.
73 my ($self, $query) = @_;
76 $new_query{lc $_} = $query->{$_} for keys %$query;
81 sub _deploy_accessor {
82 my($class, $name, $accessor) = @_;
84 return if $class->_has_custom_accessor($name);
86 $class->next::method(lc $name => $accessor);
87 return $class->next::method($name => $accessor);
92 my ($class, $attrs, @rest) = @_;
94 $att{lc $_} = $attrs->{$_} for keys %$attrs;
95 return $class->next::method(\%att, @rest);