my ($caller_package, %params) = @_;
my @module_filter = $params{module} ?
my ($caller_package, %params) = @_;
my @module_filter = $params{module} ?
type => 'one to many',
class => 'SL::DB::CustomVariable',
column_map => { ($params{id} || 'id') => 'trans_id' },
type => 'one to many',
class => 'SL::DB::CustomVariable',
column_map => { ($params{id} || 'id') => 'trans_id' },
sub _overload_by_module {
my ($module, %params) = @_;
sub _overload_by_module {
my ($module, %params) = @_;
while (my ($fk, $class) = each %{ $params{overloads} }) {
return ($fk, $class) if $class->meta->{META_CVARS()}->{module} eq $module;
}
while (my ($fk, $class) = each %{ $params{overloads} }) {
return ($fk, $class) if $class->meta->{META_CVARS()}->{module} eq $module;
}