1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::ColumnCase;
7 use base '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(
41 sub get_inflated_column {
42 my ($class, $get, @rest) = @_;
43 return $class->next::method(lc($get), @rest);
46 sub store_inflated_column {
47 my ($class, $set, @rest) = @_;
48 return $class->next::method(lc($set), @rest);
51 sub set_inflated_column {
52 my ($class, $set, @rest) = @_;
53 return $class->next::method(lc($set), @rest);
57 my ($class, $get, @rest) = @_;
58 return $class->next::method(lc($get), @rest);
62 my ($class, $set, @rest) = @_;
63 return $class->next::method(lc($set), @rest);
67 my ($class, $set, @rest) = @_;
68 return $class->next::method(lc($set), @rest);
72 my ($class, $col) = @_;
73 return $class->next::method(lc($col));
78 # Build a query hash for find, et al. Overrides Retrieve::_build_query.
81 my ($self, $query) = @_;
84 $new_query{lc $_} = $query->{$_} for keys %$query;
89 sub _deploy_accessor {
90 my($class, $name, $accessor) = @_;
92 return if $class->_has_custom_accessor($name);
94 $class->next::method(lc $name => $accessor);
95 return $class->next::method($name => $accessor);
100 my ($class, $attrs, @rest) = @_;
102 $att{lc $_} = $attrs->{$_} for keys %$attrs;
103 return $class->next::method(\%att, @rest);