Commit | Line | Data |
ea2e61bf |
1 | package DBIx::Class::CDBICompat::AccessorMapping; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use NEXT; |
7 | |
b8e1e21f |
8 | sub mk_group_accessors { |
9 | my ($class, $group, @cols) = @_; |
ea2e61bf |
10 | unless ($class->can('accessor_name') || $class->can('mutator_name')) { |
9bc6db13 |
11 | return $class->NEXT::ACTUAL::mk_group_accessors($group => @cols); |
ea2e61bf |
12 | } |
13 | foreach my $col (@cols) { |
14 | my $ro_meth = ($class->can('accessor_name') |
15 | ? $class->accessor_name($col) |
16 | : $col); |
17 | my $wo_meth = ($class->can('mutator_name') |
18 | ? $class->mutator_name($col) |
19 | : $col); |
c687b87e |
20 | #warn "$col $ro_meth $wo_meth"; |
ea2e61bf |
21 | if ($ro_meth eq $wo_meth) { |
9bc6db13 |
22 | $class->NEXT::ACTUAL::mk_group_accessors($group => [ $ro_meth => $col ]); |
ea2e61bf |
23 | } else { |
b8e1e21f |
24 | $class->mk_group_ro_accessors($group => [ $ro_meth => $col ]); |
25 | $class->mk_group_wo_accessors($group => [ $wo_meth => $col ]); |
ea2e61bf |
26 | } |
27 | } |
28 | } |
29 | |
9bc6db13 |
30 | sub create { |
31 | my ($class, $attrs, @rest) = @_; |
78bab9ca |
32 | $class->throw( "create needs a hashref" ) unless ref $attrs eq 'HASH'; |
9bc6db13 |
33 | $attrs = { %$attrs }; |
34 | my %att; |
35 | foreach my $col (keys %{ $class->_columns }) { |
36 | if ($class->can('accessor_name')) { |
37 | my $acc = $class->accessor_name($col); |
38 | #warn "$col $acc"; |
39 | $att{$col} = delete $attrs->{$acc} if exists $attrs->{$acc}; |
40 | } |
41 | if ($class->can('mutator_name')) { |
42 | my $mut = $class->mutator_name($col); |
43 | $att{$col} = delete $attrs->{$mut} if exists $attrs->{$mut}; |
44 | } |
45 | } |
46 | return $class->NEXT::ACTUAL::create({ %$attrs, %att }, @rest); |
47 | } |
48 | |
ea2e61bf |
49 | 1; |