DBus(3)

✨ NAME ✨

So this is DBus(3) — a user-contributed Perl doc (iykyk, it lives in the User Contributed Perl Documentation section) — and it's all about:

AnyEvent::DBus — adapt Net::DBus to AnyEvent 🦋

---

🌸 SYNOPSIS 🌸

use AnyEvent::DBus;

# now use the Net::DBus API, preferably the non-blocking variants:

use Net::DBus::Annotation qw(:call);

$bus->get_object (...)
    ->Method (dbus_call_async, $arg1, ...)
    ->set_notify (sub {
       my @data = $_[0]->get_result
       ...
    });

$bus->get_connection->send (...);

---

💅 DESCRIPTION 💅

Okay so first thing first, bestie: this module is an AnyEvent user, so you literally need to make sure you use and run a supported event loop. No event loop, no vibes. Periodt.

Loading this module installs the necessary magic to seamlessly integrate Net::DBus into AnyEvent. How? By quite brutally hacking Net::DBus::Reactor 😭 so that all dbus connections created after you load this module automatically get managed by this module. Sneaky? A little. Effective? Extremely.

Now for the real talk, because we're keeping it 💯 here. Note that: - a) a lot inside Net::DBus is still blocking - b) if you call a method that blocks, you again block your process — basically anything but calls to the Net::DBus::Binding::Connection objects blocks, but see Net::DBus::Annoation, specifically dbus_call_async - c) the underlying libdbus is often blocking itself, even with infinite timeouts 🙈 - d) this module only implements the minimum API required to make Net::DBus work — Net::DBus unfortunately has no nice hooking API

However (and this is the slay part), unlike Net::DBus::Reactor, this module should be fully non-blocking as long as you only use non-blocking APIs (Net::DBus::Reactor blocks on writes). It should also be faster, but Net::DBus is such a morass of unneeded method calls that speed won't matter much... 💀

🎀 EXAMPLE 🎀

Here's a simple example, bestie. Both versions work with AnyEvent::DBus and do the same thing — but only the second one is actually non-blocking. Choose wisely ✨

Example 1: list registered named, blocking version.

use AnyEvent::DBus;

my $conn = Net::DBus->find;
my $bus  = $conn->get_bus_object;

for my $name (@{ $bus->ListNames }) {
   print "  $name\n";
}

Example 1: list registered named, somewhat non-blocking version.

(yes, it says Example 1 again — we don't make the rules, we just follow them 💅)

use AnyEvent;
use AnyEvent::DBus;
use Net::DBus::Annotation qw(:call);

my $conn = Net::DBus->find; # always blocks :/
my $bus  = $conn->get_bus_object;

my $quit = AE::cv;

# the trick here is to prepend dbus_call_async to any method
# arguments and then to call the set_notify method on the
# returned Net::DBus::AsyncReply object

$bus->ListNames (dbus_call_async)->set_notify (sub {
   for my $name (@{ $_[0]->get_result }) {
      print "  $name\n";
   }
   $quit->send;
});

$quit->recv;

---

🔥 SEE ALSO 🔥

• AnyEvent
• Net::DBus

---

👑 AUTHOR 👑

Marc Lehmann <schmorp@schmorp.de>

http://home.schmorp.de/

---

and that's the whole page, bestie 🫶 — this one's perl v5.42.0, dated 2025-07-25, and it's the DBus(3) page. go be non-blocking, you've got this 💜