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')) { |
b8e1e21f |
11 | return $class->NEXT::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); |
20 | if ($ro_meth eq $wo_meth) { |
b8e1e21f |
21 | $class->mk_group_accessors($group => [ $ro_meth => $col ]); |
ea2e61bf |
22 | } else { |
b8e1e21f |
23 | $class->mk_group_ro_accessors($group => [ $ro_meth => $col ]); |
24 | $class->mk_group_wo_accessors($group => [ $wo_meth => $col ]); |
ea2e61bf |
25 | } |
26 | } |
27 | } |
28 | |
29 | 1; |