Branch Coverage

blib/lib/Protocol/DBus/Connect.pm
Criterion Covered Total %
branch 6 10 60.0


line true false branch
11 2 0 if ($addr_obj->transport eq 'unix')
14 0 2 if ($path) { }
18 0 2 unless ($path = $addr_obj->attribute('path'))
23 0 2 unless (socket my $s, 1, 1, 0)
27 1 1 unless (connect $s, Socket::pack_sockaddr_un($path))