sub _mk_column_accessors {
my ($class, @cols) = @_;
unless ($class->can('accessor_name') || $class->can('mutator_name')) {
- return $class->NEXT::_mk_column_accessors(@cols);
+ return $class->NEXT::_mk_column_accessors('column' => @cols);
}
foreach my $col (@cols) {
my $ro_meth = ($class->can('accessor_name')
? $class->mutator_name($col)
: $col);
if ($ro_meth eq $wo_meth) {
- $class->mk_accessors($col);
+ $class->mk_group_accessors('column' => $col);
} else {
- $class->mk_ro_accessors($ro_meth);
- $class->mk_wo_accessors($wo_meth);
+ $class->mk_group_ro_accessors('column' => $ro_meth);
+ $class->mk_group_wo_accessors('column' => $wo_meth);
}
}
}