projekt kivitendo

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;

  }