perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Make DNS handle lookup dependency optional
+5
-2
+5
-2
lib/ATProto/PDS/Identity.pm
+5
-2
lib/ATProto/PDS/Identity.pm
···
8
8
use Exporter 'import';
9
9
use Mojo::URL;
10
10
use Mojo::UserAgent;
11
-
use Net::DNS::Resolver;
12
11
13
12
use ATProto::PDS::PLC qw(account_did_method format_plc_did_doc is_plc_did recommended_did_credentials);
14
13
···
169
168
}
170
169
171
170
sub _resolve_handle_dns ($handle) {
172
-
state $resolver = Net::DNS::Resolver->new;
171
+
state $resolver = do {
172
+
return undef unless eval { require Net::DNS::Resolver; 1 };
173
+
Net::DNS::Resolver->new;
174
+
};
175
+
return undef unless $resolver;
173
176
my $packet = eval { $resolver->search('_atproto.' . $handle, 'TXT') };
174
177
return undef if $@ || !$packet;
175
178