File Coverage

blib/lib/Protocol/DBus/Connect.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	4	8	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	24	33	72.7

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): $!";
        };

        return ($s, Socket::pack_sockaddr_un($path), $path);
    }

    # TODO: Handle TCP addresses.

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

1;