Commit | Line | Data |
ea2e61bf |
1 | package DBIx::Class::CDBICompat::ColumnCase; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use NEXT; |
6 | |
7 | sub _register_column_group { |
8 | my ($class, $group, @cols) = @_; |
9 | return $class->NEXT::_register_column_group($group => map lc, @cols); |
10 | } |
11 | |
12 | sub _register_columns { |
13 | my ($class, @cols) = @_; |
14 | return $class->NEXT::_register_columns(map lc, @cols); |
15 | } |
16 | |
17 | sub get { |
18 | my ($class, $get, @rest) = @_; |
19 | return $class->NEXT::get(lc $get, @rest); |
20 | } |
21 | |
22 | sub set { |
23 | my ($class, $set, @rest) = @_; |
24 | return $class->NEXT::set(lc $set, @rest); |
25 | } |
26 | |
27 | sub find_column { |
28 | my ($class, $col) = @_; |
29 | return $class->NEXT::find_column(lc $col); |
30 | } |
31 | |
32 | sub _mk_accessors { |
33 | my ($class, $type, @fields) = @_; |
34 | my %fields; |
35 | $fields{$_} = 1 for @fields, |
36 | map lc, grep { !defined &{"${class}::${_}"} } @fields; |
37 | return $class->NEXT::_mk_accessors($type, keys %fields); |
38 | } |
39 | |
40 | 1; |