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($self, $col, @rest) = @_;
22 $self->_declare_has_a(lc $col, @rest);
23 $self->_mk_inflated_column_accessor($col);
29 my ($class, $rel, $f_class, $f_key, @rest) = @_;
30 return $class->next::method($rel, $f_class, ( ref($f_key) ?
35 sub get_inflated_column {
36 my ($class, $get, @rest) = @_;
37 return $class->next::method(lc($get), @rest);
40 sub store_inflated_column {
41 my ($class, $set, @rest) = @_;
42 return $class->next::method(lc($set), @rest);
45 sub set_inflated_column {
46 my ($class, $set, @rest) = @_;
47 return $class->next::method(lc($set), @rest);
51 my ($class, $get, @rest) = @_;
52 return $class->next::method(lc($get), @rest);
56 my ($class, $set, @rest) = @_;
57 return $class->next::method(lc($set), @rest);
61 my ($class, $set, @rest) = @_;
62 return $class->next::method(lc($set), @rest);
66 my ($class, $col) = @_;
67 return $class->next::method(lc($col));
72 # Build a query hash for find, et al. Overrides Retrieve::_build_query.
75 my ($self, $query) = @_;
78 $new_query{lc $_} = $query->{$_} for keys %$query;
83 sub _deploy_accessor {
84 my($class, $name, $accessor) = @_;
86 return if $class->_has_custom_accessor($name);
88 $class->next::method(lc $name => $accessor);
89 return $class->next::method($name => $accessor);
94 my ($class, $attrs, @rest) = @_;
96 $att{lc $_} = $attrs->{$_} for keys %$attrs;
97 return $class->next::method(\%att, @rest);