view release on metacpan or  search on metacpan

lib/Zuzu/Module/DNS.pm  view on Meta::CPAN

	my ( $err, @results ) = getaddrinfo(
		$query_name,
		undef,
		{
			family => $socket_family,
			socktype => SOCK_STREAM,
		},
	);
	if ($err) {
		return [] if $err =~ /(?:Name or service not known|nodename nor servname|no address)/i;
		die "DNSException: $err";
	}

	my %seen;
	my @addresses;
	for my $result ( @results ) {
		my ( $host_err, $host ) = getnameinfo( $result->{addr}, NI_NUMERICHOST );
		next if $host_err;
		next if $seen{$host}++;
		push @addresses, $host;