Net::D...ranoid(3pm)

💖 Net::DNS::Paranoid — the manual, but make it cute 💖

okay bestie, so this is a User Contributed Perl Documentation page, manual section 3pm, and the module is Net::DNS::Paranoid. buckle up, it's giving ✨paranoid✨ but in a good way 🫶

---

🎀 NAME 🎀

Net::DNS::Paranoid — a paranoid dns resolver 🕵️♀️💅

---

✨ SYNOPSIS ✨

my $dns = Net::DNS::Paranoid->new();
$dns->blocked_hosts([
    'mixi.jp',
    qr{\.dev\.example\.com$},
]);
$dns->whitelisted_hosts([
    'twitter.com',
]);
my ($addrs, $errmsg) = $dns->resolve('mixi.jp');
if ($addrs) {
    print @$addrs, $/;
} else {
    die $errmsg;
}

like. it's literally right there. copy it, bestie 🧚

---

🌸 DESCRIPTION 🌸

This is a wrapper module for Net::DNS. no cap.

And what does it do?? It detects IP address / host names for internal servers. that's the whole vibe. it's the friend who goes "girl, that address is giving internal, we're not going there" 💀🚫

---

👑 METHODS 👑

my $dns = Net::DNS::Paranoid->new(%args)

Create new instance with following parameters, bestie:

• timeout — DNS lookup timeout, in secs. Default: 15 sec. so you got 15 seconds before it's like "okay I'm out" ⏰
• blocked_hosts: ArrayRef[Str|RegExp|Code] — List of blocked hosts, and you can write them as a string, a regexp, or a coderef. choose your fighter 🥊
• whitelisted_hosts: ArrayRef[Str|RegExp|Code] — List of white listed hosts, again as string, regexp or coderef. yes same three options, she's consistent 💅
• resolver: Net::DNS::Resolver — a DNS resolver object, and it has the same interface as Net::DNS::Resolver. drop yours in, she won't even notice 🦋

---

my ($addrs, $err) = $dns->resolve($name[, $start_time[, $timeout]])

Resolve a host name using DNS 🎀. If it's a bad host, then it returns $addrs as undef, and $err is the reason in string. so like, it tells you why it's a no 🙈

• $start_time is a time to start your operation. The timeout value was counted from it. Default value is time(). ⏱️
• $timeout is a timeout value. Default value is "$dns-"timeout>. yes that's literally what the original says, don't @ me 😭

---

🔥 USE WITH Furl 🔥

You can use Net::DNS::Paranoid with Furl! obsessed, honestly.

use Furl::HTTP;
use Net::DNS::Paranoid;

my $resolver = Net::DNS::Paranoid->new();
my $furl = Furl->new(
    inet_aton => sub {
        my ($host, $errmsg) = $resolver->resolve($_[0], time(), $_[1]);
        die $errmsg unless $host;
        Socket::inet_aton($host->[0]);
    }
);

---

🌈 USE WITH LWP 🌈

I shipped LWPx::ParanoidHandler to wrap this module. Please use it. like, genuinely, please 🫶

---

💜 THANKS TO 💜

Most of the code was taken from LWPx::ParanoidAgent. giving credit where credit is due, periodt 👑

---

⭐ AUTHOR ⭐

Tokuhiro Matsuno < tokuhirom @A gmail DOT. com> — icon, legend, the moment 💖

---

📜 LICENSE 📜

Copyright (C) Tokuhiro Matsuno

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

---

fr fr, that's the whole page. no notes. slay 💅✨

and that's a wrap bestie — this was rendered from perl v5.42.0, dated 2025-07-25, and the page signs off as Net::D...ranoid(3pm) (yes the header truncates it, she's mysterious like that 💀). bye, ily, go block some hosts 🦋🎀