view release on metacpan or  search on metacpan

lib/Geo/Coder/List.pm  view on Meta::CPAN

			return;
		}
		# FIXME: cloning does not work when called as ::new() with arguments
		$class = __PACKAGE__;
	} elsif(blessed($class)) {
		# Shallow clone merged with new params; log is always fresh so the
		# clone starts with an empty event history independent of the original
		return bless { %{$class}, %{$params}, log => [] }, ref($class);
	}

	# Let Object::Configure overlay defaults from environment / config files
	$params = Object::Configure::configure($class, $params);

	# Fill in any %config defaults the caller did not explicitly supply
	for my $key (keys %config) {
		$params->{$key} //= $config{$key};
	}

	# Bless and return; params override scalar defaults but locations/log
	# are always initialised fresh so callers cannot inject stale state
	return bless {