File Coverage

blib/lib/Protocol/DBus/Connect.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch	6	10	60.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	28	37	75.6

package Protocol::DBus::Connect;

use strict;
use warnings;

use Socket;

sub create_socket {
    my ($addr_obj) = @_;

    if ($addr_obj->transport() eq 'unix') {
        my $path = $addr_obj->attribute('abstract');

        if ($path) {
            substr($path, 0, 0, "\0");
        }
        else {
            $path = $addr_obj->attribute('path') or do {
                die( "No “path” nor “abstract”: " . $addr_obj->to_string() );
            };
        }

        socket my $s, Socket::AF_UNIX(), Socket::SOCK_STREAM(), 0 or do {
            die "socket(AF_UNIX, SOCK_STREAM): $!";
        };

        connect $s, Socket::pack_sockaddr_un($path) or do {
            die "connect($path): $!";
        };

        return $s;
    }

    # TODO: Handle TCP addresses.

    die( "Unrecognized path: " . $addr_obj->to_string() );
}

1;