File Coverage

blib/lib/Protocol/DBus/Path.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch			n/a
condition	1	2	50.0
subroutine	5	6	83.3
pod	0	2	0.0
total	19	24	79.1

package Protocol::DBus::Path;

use strict;
use warnings;

use Protocol::DBus::Address ();

use constant _DEFAULT_SYSTEM_MESSAGE_BUS => 'unix:path=/var/run/dbus/system_bus_socket';

# NB: If this returns “autolaunch:”, then the system should use
# platform-specific methods of locating a running D-Bus session server,
# or starting one if a running instance cannot be found.
sub login_session_message_bus {
    return Protocol::DBus::Address::parse($ENV{'DBUS_SESSION_BUS_ADDRESS'});
}

sub system_message_bus {
    return Protocol::DBus::Address::parse( $ENV{'DBUS_SYSTEM_BUS_ADDRESS'} || _DEFAULT_SYSTEM_MESSAGE_BUS() );
}

1;