=head1 dns_resolve

Wrapper für die L<send()|Net::DNS::Resolver/send>-Methode aus
L<Net::DNS::Resolver>

=head2 Argumente

wie bei L<Net::DNS::Resolver-E<gt>send|Net::DNS::Resolver/send>

=head2 Ergebnis

Normalerweise ein L<Net::DNS::Packet>; im Fehlerfall jedoch I<falsch>,
und die von L<Net::DNS::Resolver-E<gt>errorstring> gelieferte Fehlermeldung
wird als L<Problem|Fehler/problem> vermerkt.

=back

=cut

use utf8;
use strict;
use warnings; no warnings "redefine";
use Fehler qw(problem);

sub dns_resolve($;$) {
	require noris::DNS::Resolver;
	my $resolver = noris::DNS::Resolver->new;
	if ( my $answer = $resolver->send(@_) ) { $answer }
	else { problem $resolver->errorstring }
}

1
