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;
}