File Coverage

blib/lib/Protocol/DBus/Connect.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch	4	8	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	23	32	71.8

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('path') or do {
            die( "No “path”: " . $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;